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AD-G, CA-G,U-CODE,MHJ, FEBRUARY 1975 

PRIME 300 MICRO-CODE 

PRIME COMPUTER INCSRC0768-001 

COPYRIGHT 1974, PRIME COMPUTER INC.,NATICK MASS. 



P30C^ XSET 



MA, SRCLIB,MHJ, FEBRUARY 1975 

PRIME MICRO-CODE ASSEMBLER 

PRIME COMPUTER INC -#0702 .002 

COPYRIGHT 1974, PRIME COMPUTER INCNATICK MASS 



********************************** 

* * 

* PRIME * 

* * 

* MICRO-CODE ASSEMBLER * 

* * 

* SRC0702.002 * 

* * 
********************************** 



IDNT (CPU PROM SET AD ),<REV G ), (FEBRUARY 25,1975) 

FETCH CYCLE 
BEGIN FETCH CYCLE, TEST FOR NEED TO INTERRUPT PROCESSING 



RR RP => RY CLEARFUII ; 

JUMP ON FETCH1 TO FHALT 



INCREMENT P COUNTER, READ INSTRUCTION 

CPU AL NOP ALL INC 1 M 
CLMCLFCLI MREAD , ; 



RP 
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(0868) 

001: 9304 7F84 0004 D004 

(0869 
(0870 
(0871 
(0872 
(0873 
(0874 

002: EC61 QE0D OOOD 3108 

(0875 
(0876 
(0877 
(0878 
(0879 
(0880 

003: 1300 0784 0004 0010 

(0881 
(0882 
(0883 
(0884 
(0885 
(0886 

004: EC60 7E0D 0000 3048 

(0887 
(0888 
(0889 
(0890 
(0891 

005: 0200 0004 0006 2008 

(0892 
(0893 
(0894 
(0895 
(0896 
(0897 

006: EB61 030D 0000 3104 

(0898 
(0899 



* 
F4 



* 
F5 



* 
F9 



* 
F10 



* 
F11 



JUMP ON REL TO F9 

SECTORED DECODE* BUILD EA WITH PRE-INDEXIN6 IF NEEDED 

CPU BB RM NONE ADD XN ; 
RV280 NOP EAF ; 
S FETCKDONE TO DP200 DECODE 



INDIRECTION REQUIRED 

CPU NOP ALL 
RMMRDY MREAD NOP / 
GO TO F6 



RELATIVE DECODE* BUILD RELATIVE EA 

CPU BB RM NONE ADD 
RY280 NOP EAF ,* 
S FETCHDONE TO DP2Q0 RM07 



TEST FOR DOUBLE y&RD OR STACK OPERATION 

RR *r NOP ; 

JUMP ON RMLTM240 TO F13 



PRE-INDEX FOR RELATIVE MODE 

CPU BB RY ALL ADD 

RY240 NOP EAF ; 

S FETCHDONE TO POP F11 



INDIRECTION REQUIRED 



XM 



o ; 



rp ; 



o ; 



PA6E 0003 



(0900) 
(0901) 
(0902) 
(0903) 

007: 1300 0784 Q0Q4 0010 

(0904) 
(0905) 
(0906) 

008: 0300 7804 0005 000D 

(0907) 
(0908) 
(0909) 
(0910) 
(0911) 
(0912) 

009: 9304 758D OOOA 8000 

(0913) 
(0914) 
(0915) 
(0916) 
(0917) 
(0918) 

OOA: EF60 330D OOOD 1024 

(0919) 
(0920) 
(0921) 
(0922) 
(0923) 
(0924) 

OOB: EB61 030D 0000 3014 

(0925) 
(0926) 
(0927) 
(0928) 
(0929) 
(0930) 

OOC: 13Q0 0784 0004 0010 

(0931) 



F12 



F13 



* 
F14 



F16 



* 
* 
F16A 



* 

* 
F16B 



CPU 



NOP 
RMtfRDY 
60 TO F6 



ALL 
MREAD NOP ; 



o ; 



RR RP => RY NOP TR= ALL ; 
JUMP ON STACKOP TO F17 



SECOND OPERAND FETCH 

CPU AL NOP ALL INC 

RMRFMRDY MREAD EAF i 
EAC SETFUII 



DOUBLE STACK INDEX* IF REQUIRED 

CPU BB RM ALL ADD I 
RY240 NOP EAF ; 
S RELDONE TO POP F16 



DOUBLE INDEX ON RX* IF REQUIRED 

CPU BB RY ALL ADD 
RY240 NOP EAF ; 
S FETCHDONE TO POP F16A 

DOUBLE INDIRECT 

CPU NOP ALL 
RMMRDY MREAD NOP I 
60 TO F6 



RP ; 



RS 



XM 



o ; 



PA6E 0004 



00D: 02G0 3804 



OOE: 9304 3A0D 
OOF: 1300 0784 



010: 1000 19GE 



011: EE61 0300 



012: 1300 0785 
013: 0200 0006 



(0932) 


* 


(0933) 


* 


(0934) 


F17 


(0935) 




0005 2014 




(0936) 


* 


(0937) 


• 


(0938) 


* 


(0939) 


F18 


(0940) 




(0941) 




OOOD 1004 




(0942) 


F18 


0000 0000 




(0943) 


* 


(0944) 


* 


(0945) 


* 


(0946) 


F6 


(0947) 




0003 FEF8 




(0948) 


F6A 


(0949) 




(0950) 




OOOC E084 




(0951) 


* 


(0952) 


* 


(0953) 


* 


(0954) 


F7 


(0955) 




(0956) 




0004 9011 




(0957) 


F7A 


0004 0011 




(0958) 


* 


(0959) 


* 


(0960) 


• 


(0961) 


F19 


(0962) 





STACK OPERATION PROCESSING 

RR RS => RY NOP ; 

JUMP ON PUSH TO F19 



PRE-DECREMENT OR POP PROCESSING 



CPU 



CPU 



AL NOP ALL INC 1 M 
RF200 NOP EAF ; 
S ON RELDONE, POP 



rs ; 



##ALL#""RffftRDY 



MREAD 



INDIRECTION AND POST INDEXING 

CPU RF RCM NONE M 
RF160 ,LOADRSC DATA -8 

CPU BB RM NX ADD XM 
RY240 NOP EAF ; 
S IND1RECTEND TO POP INDIRECT 



MULTIPLE LEVELS OF INDIRECTION 



CPU 



RR 



NOP ALL 
RMMRDY MREAD INCRSC i 
JUMP ON RSCNEM1 TO F6A 







,,REST 



GO TO F6A 



POST-INCREMENT STACK OP PUSH 

CPU AL NOP ALL DEC 
RYRF240 NOP EAF '. 



RA 



; 



o ; 



RS 
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(0963) S ON RELDONE TO POP 
014: 93F0 300D OOOD 1004 

(0964) * 

(0965) * INDIRECT PUSH 

(0966) * 

(0967) F20 CPU NOP ALL 

(0968) RMWRDY WREAD NOP 

(0969) 60 TO F6 
015: 1300 0784 0004 0010 

(0970) EJCT 



PA6E 0006 



016: 0200 000F 0005 



017: 
018: 

019: 

01A: 
01B: 



F600 
903C 

F002 

1302 

8C5C 



0E04 
0204 

8804 

47C4 

0307 



0004 
0007 

0002 

OOOA 

0004 



01 C 
010 



8E65 
0200 



1207 
00F4 



0000 
0004 



01E: 00C6 4604 0004 
01F: 0DC2 4604 0004 



(0971) 
(0972) 
(0973) 
(0974) 

5016 
(0975) 
(0976) 
(0977) 

308F 
(0978) 

001A 
(0979) 
(0980) 

0133 
(0981) 
(0982) 

0410 
(0983) 
(0984) 

0079 
(0985) 
(0986) 
(0987) 
(0988) 
(0989) 
(099C) 
(0991) 
(0992) 

0000 
(0993) 

401 F 
(0994) 
(0995) 

0020 
(0996) 
(0997) 

0020 
(0998) 



* 
INT3 



EXTERNAL 1NTERUPT 



RR 
CPU 

ALU 
CPU 

NVECT CPU 

CPU 



#*CLEARFUII JUMP ON FUI1 TO INT3 

BB BPA NX ; 
RY280 NOP NOP *' 
JUMP ON BPSP1 TO MI1 

CON ZERO => RM TR= NONE *JUMP ON FVIM TO NVECT 

BB RCM NONE RY ICAI ; 
RY200 ## DATA "63 

"ALLsssRY'lCPNsRMHRDY AREAO## ; 
MODAL CLRNVKEYS (TRIGNVKEYS #EINTM) 

AL RM NONE BB L ; 
RY240 , SETCC 60 TO AVECT+2 



* MEMORY INCREMENT. THE LOCATION SPECIFIED BY THE BPA IS 

* READ AND THEN INCREMENTED. AFTER THIS # IT IS WRITTEN 

* BACK. IF IT INCREMENTED TO 0* END OF BLOCK IS 6ENERATED 

* ALONG WITH ICPN. IF NOT* END OF BLOCK (BPCEOB) IS 

* GENERATED AS ZERO. BPCEOB - CARRY OUT OF BIT 1 OF THE ALU. 

* 

MI2 ALU INC RM => RM SETCC 



ALU 


INC 


RM 


RR 


,,Z* 


■ AW 


CPU 





RM 




280 





CPU 





RM 




280 


r 



,,C= AWRITE # JUMP ON NE TO **2 
1 MINUS1 1 RY 



MINUS1 1 
GO TO CP8 

MINUS1 Q 
GO TO CP8 



RY 



ICPN ; 



ICPN ; 



EJCT 
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(0999 
(1000 
(1001 
(1002 
(1003 
(1004 
(1005 
(1006 

020: 0300 7804 0004 0001 

(1007 
(1008 

021: 0200 C804 0004 0035 

(1009 
(1010 

022: 9204 CA04 0006 6021 

(1011 

023: 0200 C804 0004 002C 

(1012 

024: 0200 1204 0004 0091 

(1013 
(1014 
(1015 
(1016 
(1017 
(1018 

025: 923F 0607 0006 6027 

(1019 
(102C 
(1021 
(1022 
(1023 
(1024 
(1025 

026: F203 00OE 0002 010C 

(1026 
(1027 
(1028 
(1029 



BEGIN PROCESSING THE FUNCTIONS 



ORG 



CP8 RR 

CP9 RR 

CP10 ALU 

CP11 RR 

CP12 RR 



$20 

1 STOP/STEP (OTHERS FOLLOW IN SEQUENCE) 

RP => RY NOP TR= ALL ; 
GO TO F3 



YSAVE => RY 
GQ TO CP1 



NOP 



INC YSAVE => YSAVE , I 
JUMP ON LT TO CP9 

YSAVE -> RY * GO TO CP19 

RA => RM * GO TO BOOT 



CLEAR THE ACTIVE REGISTER. BIT 1 CLEARS THE DATA. 



CP13 CPU AL NOP NX ZERO L 
280 NOP SETCC ; 
JUMP ON LT TO CP15 



RSC ; 



* ADDRESS CHANGES THE RSC ADDRESSED REGISTER FROM 

* MSAVE TO YSAVE. 

* 

CP14 CPU BB RCM NX RSC ; 
200 NOP LOADRSC ; 
DATA $C 

* 

* THE SAVED REGISTER SELECTED IS OUTPUT TO THE LIGHTS, 

* THEN THE DATA SWITCHES ARE ORED INTO IT. 

* 
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C1030) CP15 CPU 
027: 1203 2204 0000 000C 

(1031) CP16 CPU 

C1032) 
028: 1203 A6G4 0000 OOOQ 

(1033) CPU 

(1034) 
029: F203 0804 0001 66DG 

(1035) CP17 CPU 

(1036) 
02A: 9A4F 0C04 0004 4037 

(1037) CP18 CPU 

(1038) 
02B: 923F CC04 0004 0037 

(1039) CP19 CPU 

(1040) 
02C: 1200 D4F4 0004 0037 

(1041) EJCT 



RF NOP NX 

NOP NX 
280 



BB RCW NX 
RY200 ##DATA M31720 

AL BPD NX OR L 
•JUMP ON NE TO CP3 

AL NOP NX ZERO L 
RF280 ,, 60 TO CP3 



RSC DATA RH200 

RSC (DATAsSTROBE) ; 

rsc o ; 

RSC RF280 ' ; 

rsc o ; 



RF NOP NX 

RM280 AWRITE 



M PtSAVE ; 

#60 TO CP3 



PA6E 0009 



(1042) * 

(1043) * TEST FOR CONTROL PANEL REQUEST* IF NOT* 00 EXTERNAL INT 

(1044) * 

(1045) FHALT3 RR ** TR- ALL *JUMP ON CP TO CP1 
02D: 03C0 0004 0004 C035 

(1046) * 

(1047) * EXTERNAL INTERRUPT PROCESSING. 

(1048) * IENB IS VALID FOR THE THIRD STEP. 

(1049) * IENB BEGINS 480 NS EARLIER AT THE START 

(1050) * OF THE SECOND CYCLE. BPSP1 IS TESTED* IF TRUE 

(1051) * A MEMORY INCREMENT OPERATION IS PERFORMED- IF FALSE* AN 

(1052) * EXTERNAL INTERRUPT IS TAKEN. THE VECTOR ADDRESS IS TAKEN 

(1053) * FROM BPA IN VECTORED MODE* AND GENERATED AS *63 

(1054) * IF IN COMPATIBLE MODE. 

(1055) * 

(1056) INTEX CPU NOP NX RY IEN I 

(1057) 200 NOP NOP ; 

(1058) EAC SETFUII 
02E: 1202 2004 OOOA 8000 

(1059) CPU NOP NX RY IEN ; 

(1060) 280 NOP NOP 60 TO INT3 
02F: 1202 2604 0004 0016 

(1061) EJCT 



PA6E 0C10 



(1Q62) * 

(1063) * 

(1064) * HALTED FETCH CYCLE, FIND WHAT NEEDS PR0CESSIN6 

(1065) * 

(1066) * 

(1067) * MASTER CLEAR INVERSE TEST 

(1068) * 

(1069) FHALT RR ,,, TR= ALL JUMP ON SYSCLRNOT TO FHALT2 
030: 0300 0004 0004 B074 

(107C) * 

(1071) * MASTER CLEAR ROUTINE CLEARS CARRY, MODALS, AND REGISTERS 

(1072) * TO '37. '1000 IS PUT INTO THE P COUNTER, AND THE CONTROL 

(1073) * PANEL ROUTINE WHICH FOLLOWS READS "1000 INTO THE LIGHTS. 

(1074) * 

(1075) * 

(1076) MC1 RR RCM * '1000 => RY C= BD01 LOADRSC 
031: F200 083E 0000 050C 

(1077) MC2 CPU AL NOP NX ZERO L RSC ; 

(1078) RF280 NOP INCRSC ; 

(1079) JUMP ON RSCNEM1 TO * 
032: 923F 0C05 0004 9032 

(1080) MC3 CPU AL NOP NX ZERO L ; 

(1081) RM200 NOP CLEARFUII ; 

(1082) JUMP ON VERIFY TO VIRY1 
033: 923C 020F 0007 30C4 

(1083) MC4 CPU BB RY NX M RP 7 

(1084) RF280 NOP NOP ; 

(1085) EAC CLRNVKEYS (54,56,58,59,60,61,62,63) 

034: EAOO 7C04 OOOA 057E 

(1086) EJCT 



PACE 0011 



035: EA00 C5C4 
036: EEOO DA04 



037: F20C 0S04 



038: F202 160E 



(1087 
(1088 
(1089 
(1090 
(1091 

(1092 
(1093 
(1094 
(1095 
(1096 
(1097 
(1098 
(1099 
(1100 
(1101 
(1102 
(1103 
(1104 
(1105 
(1106 
(1107 
(1108 
(1109 
(1110 
(1111 
(1112 
(1113 
(1114 

0000 oooc 
(1115 

0000 0000 
(1116 

0001 675C 
(1117 
(1118 
(1119 

0002 OOOD 
(1120) 



CONTROL PANEL ROUTINE. THIS PROGRAM FIRST READS THE 

FUNCTION SyiTCHES UNA 1520). THE INFORMATION IS 

ENCODED IN THE LOW ORDER FOUR BITS OF THE WORD AND THE 

SIGN BIT. A SIXTEEN WAY BRANCH IS THEN DonE WITH THE 
FIRST 8 BRANCHES DEFINED AS FOLLOWS 

1 RUN OR STOP STEP 

2 FETCH THIS 

3 FETCH OR STORE NEXT (BIT 1 IS SET FOR FETCH NEXT) 

4 STORE THIS 

5 AUTO LOAD 

6 CLEAR ADDRESS OR DATA (BIT 1 IS SET FOR DATA) 

7 ADDRESS (NO SPECIAL FUNCTION — LIGHTS -ADDRESS) 

8 DATA (NO SPECIAL FUNCTION — LI6HTS ' ADDRESS) 



REGISTERS YSAVE AND MSAVE HOLD THE WORKING 
COPIES OF THE ADDRESS AND DATA LI6HTS# RESPECTIVELY. THESE 
ARE UPDATED EACH TIME THROUGH THE LOOP AND DISPLAYED ON THE 
NEXT PASS. INA 1720 IS USED TO READ THE DATA SWITCHES AND 
OR THEM INTO THE SAVED RE6ISTERS. OTA 1720 IS THEN USED TO 
DUMP OUT THE OLD IMAGE. 



P1 



CP2 
CP3 
CP4 

CP5 



CPU 

RR 
RR 
CPU 

CPU 



BB RY 
RMRFMRDY 



NX 
AREAD NOP 



RM => MSAVE TR = NX 

RCM = M31520 => RY 

BB RCM NX 
280 NOP LOADRSC ; 
DATA SD 



BB 



BPD NX 



M YSAVE ; 

INA FUNCTION 
RY PIO ; 

RSC STROBE /* 



PA6E 0012 



(1121) 

FA03 8404 0000 0000 

1122) CP6 
1123) 
E6D0 

1124) CP7 
1125) 
:1126) 
0022 
1127) * 
:1128) * 

1129) * 

1130) DPX2 
0000 
1131) 
1132) 

03D: 865C EAQ4 0005 F04B 

(1133) 



039: 



03A: F003 0804 0003 



03B: 8C5F 0407 000C 



03C: E800 C904 0000 



CPU 



CPU 



RM280 

BB RCM 
RY200 



NONE 
#,DATA M71720 



FUNCTION SWITCH TO RH 
RSC ; 



AL RM NONE BB L 
RM280 NOP SETCC ; 
S ON TRUE 16WAYS TO CP8 



RSC 



REGISTER SAVE FOR OMX ROUTINE. 

RR RY => YSAVE 

CPU AL RSC NX BB L K RSCSAVE ; 

RF200 ,#JUHP ON DMTNOTVALID TO DMA 

EJCT 
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03E: F603 C808 0006 
03F: 12C3 8004 0004 



040: 1203 4004 0000 



041: F603 8808 0007 



042: FA03 94F4 0004 



(1134) 


(1135) 


(1136) 


(1137) 


(1138) 


(1139) 


(1140) 


(1141) 


(1142) 


(1143) 


(1144) 


(1145) 


(1146) 


(1147) 


5046 


(1148) 


0042 


(1149) 


(1150) 


(1151) 


(1152) 


(1153) 


(1154) 


(1155) 


(1156) 


0000 


(1157) 


(1158) 


(1159) 


604A 


(1160) 


(1161) 


(1162) 


0040 


(1163) 


(1164) 


(1165) 


(1166) 



* 

* DMT. HIGHEST SPEED OF ALL TRANSFERS*- THE PERIPHERAL 

* ADDRESS LINES ARE READ INTO RY AND DIRECTLY SELECT THE 

* MEMORY LOCATION TO BE USED. INPUT OR OUTPUT TRANSFER 

* IS DETERMINED BY TESTING THE INPUT/OUTPUT LINE AS IS 

* TRUE OF ALL DMx . THE SIGNALS GENERATED ARE THE SAME 

* AS FOR DMA EXCEPT THAT THE END OF RANGE SIGNAL IS UN= 

* DEFINED FOR THIS TRANSFER TYPE. THIS MEANS THE CONTROL- 

* ER DETERMINES IF THE TRANSFER ENDS THE BLOCK. 



* 
DMT 



CPU 



CPU 



BB BPA NX 
RV200 
JUMP ON OUTPUT 




L0AD256K 
TO T0UT1 



RSC 



(CPN, STROBE) 



* 

* 
TIN 



CYCLE TO 
NOTE THAT THE 
THE CYCLE CAN 
ALGORITHMS TO 
ABLED. 

CPU 

CPU 



RSC STROBE ,,,GQ TO TIN1 



CYCLE FULLY OVERLAPPED DMT INPUT LOOP. 
STROBE HAS ALREADY BEGUN BEFORE 
EXIT. THIS FORCES ALL OF THE OTHER 
BE WRITTEN WITH STROEE ALWAYS EN- 



r r * 



RSC CPN 



BB BPA NX 
RY200 NOP LOAD256K ; 
JUMP ON DMTINNVAL TO TEXIT 



TIN1 



* 
* 
TOUT 



CPU 



BB BPD 

RM280 

60 TO TIN 



NX 
AWRITE 




NOP 



RSC 



RSC 



STROBE ; 



(ENB, STROBE) ; 



DMT OUTPUT LOOP. 
CPU NOP NX 



RSC 



(STROBE, DATA) ; 
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(1167) 
043: 1203 A704 0000 0000 

1168) CPU 

1169) 

1170) 

504A 

1171) CPU 

1172) 

oooc 

1173) T0UT1 CPU 
1174) 
1175) 
046: 1203 96C4 0004 0043 

(1176) EJCT 



044: F603 6308 0007 



045: 1003 8904 OOOC 



RMMRDV 

BB BPA NX 
RY240 NOP L0AD256K ; 
JUMP ON DKTOUTNVAL TO TEXIT 



RF NOP NONE 
RF160 

NOP NX 
280 AREAD 
GO TO TOUT 




NOP 



RSC (CPNsDATA) ; 



RSC STROBE ; 



RSC (ENBsSTROBE) /* 
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047: 1203 6B04 0005 



048: F6G3 8804 0006 
049: 1203 8004 0005 
04A: 1203 8004 0Q05 



04B: 1603 800E 0005 



(1177) 


(11 ?8) 


(1179) 


(118U) 


(1181) 


(1182) 


(1183) 


D059 


(1184) 


(1185) 


(1186) 


(1187) 


(1188) 


(1189) 


805C 


(1190) 


E03E 


(1191) 


D059 


(1192) 


(1193) 


(1194) 


(1195) 


(1196) 


(1197) 


(1198) 


(1199) 


(1200) 


(1201) 


(1202) 


(1203) 


(1204) 


(1205) 


(1206) 


E048 


<1207) 


(1208) 


(1209) 



* THIS CODE TRANSFERS CONTROL FROM ONE MODE OF DMX 

* TRANSFER TO ANOTHER OR RESUMES NORMAL USER LEVEL CODE 

* EXECUTION. 
* 

DKA1 CPU RF NOP NX RSC 
RF24Q NOP NOP ; 
JUMP ON DMXSTATREQ TO REST 



(DATA#CPN) ; 



DMC 



START OF DMC LOOP 
CPU 







BB BPA NX 
RY200 NOP NOP ; 
JUMP ON DMCVALID TO DMC1 



RSC 



STROBE ; 



TEXIT 



CPU 
CPU 



,,,,,RSC STROBE ,,,JUMP ON DMANOTVALID TO DMT 
#,*#,RSC STROBE ,,,JUMP ON DMXSTATREQ TO REST 



* 
* 

* 
* 

* 

* 
DMA 



DMA. THE ADDRESS LINES ARE READ INTO THE SHIFT COUNTER 
THIS DIRECTLY SELECTS THE FIRST DMA REGISTER. IT IS INCRE- 
MENTED BY $10 AND TESTED TO SEE IF ZERO IS CROSSED BY THE 
END OF BLOCK SIGNAL. THE SECOND REGISTER IS ACCESSED AND AN 
INPUT OR OUTPUT TRANSFER IS BEGUN TO THE LOCATION READ. A 
BPCENB IS GENERATED BEFORE THE COMPLETION OF THE TRANSFER TO 
DETECT CONSECUTIVE TRANSFERS. IF CONSECUTIVE* LOOP BACK, 
IF NOT, EXIT. 



CPU 



CPU 



BPA NX 

200 NOP LOADRSC ; 

JUMP ON DMANOTVALID TO DMC 



AL RCM 


NX 


ADD 


RYRF240 


NOP 


INCRSC ; 


DATA $10 







RSC STROBE ; 



rsc (strobe#cpn) ; 
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04F: 
050: 



9207 0A04 



F600 



04C: 9263 CD05 0002 001C 

(1210) 
(1211) 
(1212) 

04D: 1203 8808 0006 5058 

(1213) 
(12U) 
(1215) 

04E: F803 94F4 0004 004F 

(1216) 
(121?) 
(1218) 
(1219) 
(1220) 

0000 oocc 

(1221) 
000E 0005 E0A7 
(1222) 
(1223) 
(1224) 

00G2 001C 
(1225) 
(1226) 
(1227) 
8808 0006 5058 
(1228) 
(1229) 
(1230) 

0004 004F 
(1231) 
(1232) 
(1233) 
(1234) 

0000 0000 
(1235) 
(1236) 
(1237) 
055: 1603 A70E 0005 E047 



* 
* 
DIN 



051: 9263 U>05 



052: 1203 



053: F803 9AF4 



054: 1003 8904 



DIN1 



* 

* 
OCUT 



CPU 



CPU 



RF NOP NX 
RY200 NOP L0A0256K ; 
JUMP ON OUTPUT TO D0UT1 



BB BPD NONE 
RM28Q AWR1TE 
GO TO DIN 




NOP 



RSC STROBE ; 



RSC (ENBsSTROBE) ,* 



CYCLE TO CYCLE* FULLY OVERLAPPED DMA INPUT ROUTINE 



CPU 

RR 
CPU 

CPU 

CPU 



AL NOP NX 
RF200 



INC 



1 



RSC 



o ; 



BPA => sLOADRSC* JUMP ON DMANOTVALID TO DMA1 

RSC (CPN, STROBE) ; 



AL RCM NX 
RYRF240 NOP 
DATA $10 



ADD 

incrsc ; 



RF NOP NX 
RY200 NOP LOAD256K ; 
JUMP ON OUTPUT TO D0UT1 



BB BPD NONE 
RM280 AWRITE 
GO TO DIN 




NOP 



RSC 



RSC 



STROBE ; 



(ENBsSTROBE) /* 



DMA CYCLE-CYCLE OUTPUT ROUTINE. 

CPU RF #NONE/**RSC STROBE 

CPU BPA NX RSC 
RMMRDY NOP LOADPSC /' 
JUMP ON DMANOTVALID TO DMA1 



RF160 
(STROBE^DATA) ,* 



PA6E OOt? 



056: 9263 6D05 



057: 1203 8808 



058: 9007 9CC4 



(1238) 
C1239) 
(1240) 

0002 001G 
(1241) 
(1242) 
(1243) 

0004 5053 
(1244) 
(1245) 
(1246) 

0004 0054 
(1247) 



CPU 



CPU 



D0UT1 CPU 



EJCT 



AL RCK 
RYRF240 
DATA $10 



MX 
NOP 



ADD 
INCRSC ; 



RF NOP NX 

RY200 NOP L0AD256K 
JUMP ON INPUT TO DINT 

AL NOP NONE INC 1 
RF280 AREAD NOP ; 
60 TO DOUT 



RSC (CPNsDATA) i 



RSC STROBE '• 



RSC (STROBE#ENB) ; 
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059: 
05A: 



O2Q0 C804 
0000 E104 



05B: OFOO D40E QOOC 



05C: 1203 87CE 0002 



050: 
05E; 
05F; 



F203 8A04 
EE6S 84F4 
8A63 8304 



(1248) 
(1249) 
(1250) 
(1251) 

QOOO 0000 
(1252) 

0000 0000 
(1253) 
(1254) 
(1255) 
0004 
(1256) 
(1257) 
(1258) 
(1259) 
(1260) 
(1261) 
(1262) 
(1263) 
(1264> 
(1265) 
(1266) 
(1267) 
010F 
(1268) 
(1269) 
(127G) 

0002 0001 
(1271) 
(1272) 

0000 0000 
(1273) 
(1274) 

0004 0086 
(1275) 



* 
* 
REST 



RESTORE ROUTINE 



RETURN TO NORMAL PROCESSING. 



RR 
RR 
CPU 

DMC 



YSAVE => RY 

RSCSAVE => RM 

RF RM ALL 
RH280 NOP 
S ON TRUE, POP 




LOADRSC ; 



MS AVE ; 



SLOWEST OF ALL THE TRANSFERS, DMC HAS AS ITS VIRTUE 

* THE CAPABILITY OF USING ANY OF THE FIRST 64K MAIN 

* MEMORY LOCATIONS AS A CHANNEL. IDENTICAL IN FUNCTION 

* TO DMA, THE TWO LOCATIONS MAKING UP A CHANNEL CONTAIN 

* THE CURRENT AND ENDING MEMORY ADDRESSES, AND MUST BE ACCESSED 

* TESTED AND UPDATED EACH CYCLE. 
* 

* 

DMC1 



CPU 



CPU 



CPU 



CPU 



EJCT 



RCM NX 
RMMRDY AREAD LOADRSC i 



RSC 



STROBE ; 



DATA M? 






BB RCM ' 


NX 





RF200 


NOP 


nop ; 


DATA 1 






AL RM 


NX 


ADD 


RM280 


AWR1TE 


AL RY 


NX 


ADD 


RY240 


,,60 


TO DMC3 



RSC 



RSC 



RSC 



STROBE ; 



STROBE ; 



STROBE ; 



PA6E 0019 



(1276 
(1277 
(1278 
(1279 

(1280 
(1281 
(1282 
{1283 
(1284 
(1285 
(1286 
(1287 
(1288 
(1289 
(1290 
(1291 

060: FOOD 060C 0002 008A 

(1292 

061: E800 CA04 0004 007D 

(1293 
(1294 
(1295 
(1296 
(1297 

062: ED02 0604 OOCC 0004 

(1298 
(1299 
(1300 

063: 8C5C F5C9 0004 0080 

(1301 
(1302 
(1303 
(1304 
(1305 

064: 1102 0404 OOOC 0004 

(1306 
(1307 
(1308 



ORG $60 

* TRAP ENTRY POINTS. EVERY OTHER LOCATION FROM HERE TO 

* $7E IS A POTENTIAL TRAP ENTRY POINT. THOSE LOCATIONS 

* WHERE TRAPS ARE NOT IMPLEMENTED ARE AVAILABLE FOR OTHER 

* CODING. PRIOITY IS FROM 6F TO 60* THEN FROM 

* 7F TO 70. THEREFORE MISSING MEMORY MODULE IS HIGHEST 

* PRIORITY* AND DMA IS LOWEST . 
* 



* 
* 
WRITE 



* 
* 

READ 



FETCH PA6E TRAP 



FPAGE CPU 



RR 



BB RCM NONE * 
DATA FPAGE3 

RY => YSAVE TR= NONE 



280 



sPUSHBD ; 



GO TO PAGE+1 



WRITE ADDRESS TRAP 
CPU 



PAGE3 CPU 



BB RM 1 #*RY 
**S ON TRUE* POP 

AL RM NONE BB L 
RMRFMRDY AREAD FORCERD ; 
GO TO PAGE4 



RF24Q ; 



17 



READ ADDRESS TRAP 
CPU 



RF NOP 1 **RY 
,,S ON TRUE* POP 



ORG $66 

FETCH READ ADDRESS TRAP 



RM28Q ; 



PA6E 0020 



RF NOP 1 ,,RY 
ssEAC LOADF01F02 



066 
06 7 



1102 0204 
1100 0B04 



RM200 
RF,,1,#,M,0#RF240#*#S ON TRUE, POP 



RESTRICT EXECUTION MODE TRAP. THOSE INSTRUCTIONS WHICH 



068: 
069: 

06A: 
06B; 



FOOO 0804 
1000 07C4 

903C 020F 
0000 7804 



(1309) * 

(1310) FREAD CPU 
(1311) 

OOOA COOO 

(1312) CPU 
OOOC 0004 

C1313) * 

(1314) * 

(1315) * 

(1316) * ARE RESTRICTED FORCE THIS TRAP IF THE MODE IS ENABLED. 

(1317) * 

(1318) RXM RR RCM = »62 => RY TR= NONE 
0002 0032 

(1319) CPU 
0004 0077 

(1320) * 

(1321) * 

(1322) * 

(1323) CPPAR 
0007 30C4 

(1324) 
0004 0034 
(1325) 

(1326) * 

(1327) * 



s,NONEss/'sRMMRDYsAREAD,,GO TO AVECT1 



CENTRAL PROCESSOR PARITY . 

ALU CON => RM CLEARFUII TR= NONE JUMP ON VERIFY TO VIRY1 

RR RP => RY TR= NONE , GO TO MC4 

ORG $6C 

MEMORY PARITY ERROR 



06C: 


FOOO 


0804 


0002 0037 
(133C) 




06D: 


913C 


0204 


0004 008C 
(1331) 
(1332) 
(1333) 
(1334) 


* 
* 

M*OD 


06E: 


FOOO 


0804 


0002 0139 
(1335) 




06 F: 


0000 


0G04 


0004 006D 
(1336) 


* 



(1328) * 

(1329) MEMPAR RR RCM = »67 => RY TR= NONE 

ALU CON -> RM TR= 1 / GO TO MEMP3 

MISSING MEMORY MODULE 

RR RCM = *71 => RY TR= NONE 

RR ,,TR= NONE ,G0 TO MEMPAR+1 



PAGE 0021 



070: EECO DAC4 0000 
071: 1003 1604 0004 

072: F100 0804 0002 
073: 1000 07C4 0004 

074: 923C 0204 0005 
075: FOOC 0804 0002 

076: 9004 75CA OOOB 



000167 



077: 91F0 7A0F 0005 



(1337 
(133P 
(1339 
0000 
(1340 

003C 
(1341 
(1342 
(1343 
(1344 

003B 
(1345 

0077 
(1346 
(1347 
(1348 
(1349 

902D 
(1350 

0130 
(1351 
(1352 
(1353 

0410 
(1354 
(1355 
(1356 
(1357 
(1358 
(1359 
(136C 
(1361 
(1362 
(1363 
(1364 

5077 
(1365 
(1366 



* 
0MX1 



DMX INSTRUCTION INTERRUPT ENTRY POINT 

RR RM => MSAVE TR = NX 

CPU ,,NONE,,,RSC ENB 280 ,,G0 TO DMX2 

PAGE WRITE PROTECT VIOLATION 



WRITEP RR RCM = * 73 => RY TR= 1 

CPU ,,NONE#,,"RMMRDY*AREAD,,GO TO AVECT1 



* 

FHALT2 ALU 
PFL RR 
CPU 



POWER FAILURE INTERRUPT 



CON ZERO => RM *JUKP ON PFLNOT TO FHALT3 

RCM = *60 => RY TR= NONE 

AL NOP NONE INC 1 M RP ; 

RMRFMRDY AREAD NOP ; 

EAC CLRPWFL (TRI GNVKEVS, E INTM) 



* 

* ABSOLUTE VECTOR THE FIRST ENTRY ALSO BACKS THE 

* PROGRAM COUNTER UP BEFORE VECTORING- THE LOCATION IS 

* READ. IF ZERO/- THE PROCESSER HALTS* IF NOT, A JST TO THE 

* LOCATION READ IS DONE. NOTE THAT THE ADDRESS IS 

* INTERPRETED AS AN ABSOLUTE 64K POINTER, NO INDEXING OR 

* INDIRECTION. 
* 

AVECT EQU * 

AVECT1 ALU DEC RP => RP TR = 1 CLEARFUII ; 
JUMP ON FUII TO * 



CPU AL RM NONE BB L 
EAC CLRNVKEYS TRI6NVKEYS 



,,RY240 #SETCC ; 



PA6E 0022 



078: 8C5C 0307 000A 0400 

(1367) RR RP => RM TR = ALL # ; 

(1368) JUMP ON EG TO CP1 
079: 0300 7204 0006 4035 

(1369) RR RY -> RP C = AWRITE TR- ALL *G0 TO CAS5 
07A: EBOO 7AF4 0004 01E5 

(1370) * 

(1371) * PAGE TRAP . PROCESS TO UPDATE CAW IF POSSIBLE 

(1372) * AND CONTINUE THE INSTRUCTION. IF NO PAGE IN MEMORY 

(1373) * BACK UP THE P-COUNTER # AND PA6E FAULT INTERRUPT. 

(1374) * 

(1375) ORG $7C 

(1376) PAGE RR RY => YSAVE 
07C: E800 C904 0000 0000 

(1377) ALU PMAR OR RY => RY TR = FLIP BYTES DISABLERHBB ; 
(137b) GO TO PAGE3 

07D: 684C 83CB 0004 0063 

(1379) * 

(1380) * POST PROCESSING OF CENTRAL PROCESSOR PARITY ERROR 

(1381) * AFTER MICRO-VERIFY HAS SUCESSFULLY BEEN EXECUTED. 

(1382) * 

(1383> CPPAR3 RR RCM = *70 => RY TR* NONE 
07E: FOOD 0804 0002 0038 

(1384) CPU #,N0NE#,#,,RMNRDY/AREAD"60 TO AVECT+1 
07F: 100C 07C4 0004 0078 

(1385) PAGE4 RR YS*VE => RY TR= NONE , I 

(1386) JUMP ON RM01NOT TO PA6E7 
080: 0000 C804 0006 1083 

(1387) CPU RF NOP M 17 ; 

(1388) RM280 ssEAC LOADCAM 
081: 1000 F404 0009 8000 

(1389) CPU ,,ALL ,,,,RMMRDY MNR1TE ; 

(1390) HSMRESUME S ON TRUE#POP 
082: 13C0 07BA OOOC 0004 

(1391) PAGE7 RR RY => EAS TR= 1 
083: E900 AA04 0000 0000 

(1392) RR RCM = "64 *> RY TR= 1 
084: F100 0804 0002 0034 
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(1393) CPU ,,N0NE,*",RMMRDY#AREAD,,60 TO AVECT1 
085: 1000 07C4 0004 0077 

(1394) * 

(1395) * DMC EXECUTION 

(1396) * 

(1397) 0WC3 CPU BB RM NX RSC STROBE ; 
(139b) RMRFMRDY AREAD 

086: EE03 85C4 0000 OOOC 

(1399) CPU RF RM NX SUB RSC (CPN, STROBE) ,* 

(1400) RY240 ,,JUMP ON INPUT TO DMC2 
087: 0E93 C304 00C4 5089 

(1401) CPU AL"NX#DEC/0#RSC (STROBE) RY240 ; 

(1402) "GO TO 00UT1 
088: 92F3 8304 0004 0058 

(1403) DMC2 CPU AL NOP NX DEC RSC STROBE ; 

(1404) RY240 #/>G0 TO DIN1 
089: 92F3 8304 0004 0053 

(1405) * 

(1406) * FETCH PAGE FINISH OFF- IT IS NECESSARY TO LOAD F01 AND2 

(1407) * 

(1408) FPAGE3 CPU BB RM NONE ****RM200 **EAC L0ADF01F02 
08A: ECOO 0204 OOOA COOO 

(1409) CPU RF,>1#,,M*Q#RF240#,,S ON TRUE, POP 
08B: 1100 0B04 OOOC 0004 

(1410) * 

(1411) * FINISH THE MEMORY PARITY ERROR TRAP 

(1412) * 

(1413) MEMP3 CPU AL NOP NONE RF M RX ; 

(1414) RF200 "EAC NOP (TR I6NVKEYS ,MCHK ) 
08C: 9000 0A04 0008 0404 

(1415) CPU AL NOP 1 RF M RA ; 

(1416) RMRFMRDY AREAD ,G0 TO AVECT+1 
08D: 9100 15C4 0004 0078 

(1417) F0UT1 ALU RX ADD RCM * $20 => RX TR= NONE SETCC 
QbE: 9060 0A07 0002 0020 

(t418) RR *^TR= NONE JUMP ON NE TO *-1 
08F: 0000 0004 0004 408E 

(1419) RR ,,,1R~ NONE 60 TO VIRY1 
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090: 0000 0004 0004 00C4 

(1420) EJCT 
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091: 
092; 
093: 

094; 

095; 



097; 
C98; 
099; 



F000 
FOOO 
FOOO 

F202 

F203 



0104 
2904 
3904 

1804 

AE04 



9A5F 
9204 
9294 



0404 
3D04 
30B7 



0002 
0002 
0002 

0003 

0001 



096: 923F 0604 OOOA 



0000 
0000 
0002 



(1421 
(1422 
(1423 
(1424 
(1425 
(1426 
(1427 
(1428 
(1429 
(T430 
(1431 
(1432 
(1433 
(1434 
(1435 

0100 
(1436 

0100 
(1437 

0105 
(1438 
(1439 

E6D0 
(1440 
(1441 

6610 
(1442 
(1443 
(1444 

4100 
(1445 
(1446 

0000 
(144 7 

0000 
(1448 

012E 
(1449 



* CONTROL PANEL BOOT. THIS PROGRAM READS IN 512 VORDS FROM 

* THE CONTROL PANEL AND PUTS THEM INTO LOCATIONS 6 

* THROUGH *56 IN VIRTUAL MEMORY. THE LOCATION POINTED TO 

* BY THE P COUNTER IS THEN EXECUTED. 

* METHOD OF OPERATION. AN OTA M720 SENDS THE CONTROL 

* PANEL THE LOCATION TO BE READ FROM ITS MEMORY. AN INA 

* M420 IS THEN ISSUED TO GET THE CONTENTS OF THE LOCATION 

* JUST ACCESSED. THIS IS WRITTEN INTO MEMORY* THE POINTERS 

* ARE INCREMENTED AND THE PROCESS REPETED UNTIL ALL 512 WORDS 

* ARE TRANSFERRED. 
* 

* 
* 
BCOT 



RR 
RR 
RR 
BOOT1 CPU 

CPU 

CPU 

CPU 

ALU 
ALU 
ALU 



RCM = C => RM 

RCM =0 => RB 

RCM - 5 => RS 

BB RCM NX 
RY200 ,,DATA M71720 

BB RCM NX 
RY280 ,, DATA '131420 

AL NOP NX ZERO L 

280 NOP NOP ; 

EAC PLOADVKEYS TRI6VKEYS 



AL BPD NX 
RM280 



BB 



RY 



RSC 



RSC 



RSC 



PIO 



(DATA#STRO&E) ; 



INC RS => (RY#RS) 

RS MINUS RCM = # 56 => NULL C= MWRITE SETCC 

INC RB => RM 
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09A: 9204 2204 



09B: 9204 2A00 



0000 0000 
(145C) 
(1451) 

0006 6094 
(1452) 



ALU 



EJCT 



INC 
JAMF 



RB => R8 , 
JUKP ON 



LT TO B00T1 
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(1453) DIV27 ALU 
09C: 93F0 2204 0006 71A2 

(1454) RR 
090: EA00 2A04 0004 010F 

(1455) DIV17 CPU 
(1456) 

(1457) 
0009 OOOC 

(1458) CPU 

(1459) 

(1460) 
0004 F146 

(1461) CPU 

(1462) 
0000 

(1463) CPU 

(1464) 

(1465) 
90A0 

(1466) * SET RSC = 

(1467) CPU 
(1468) 

0A2: AE60 1045 0009 0000 

(1469) CPU 

(1470) 
0A3: 8E60 1D04 0009 0000 

(1471) CPU 

(1472) 
0A4: 2*60 2A04 0000 0000 

(1473) CPU 

(1474) 
0A5: 92FC 2A04 0000 0000 

(1475) ALU 
0A6: 9304 2A04 0004 61A8 

(1476) ALU 
0A7: 8E60 1307 0004 009C 

(1477) DIV4 CPU 
(1478) 



09E: AE60 1014 

09F: 2F30 2A44 

OAO: AE60 1C44 0009 

0A1: 2F30 2A45 0004 



DEC RB => RM TR = ALL 

RY => RB #60 TO LDA-M 

ALLS RM MX ADD 
200 DIVER , ; 
EAC DIVLOGIC 

RFLS 3 ALL 3 
RF200 LINK * ; 
JUMP ON FCBIT TO DIVER 



ALLS RM NX ADD M 
RF280 LINK *EAC DIVLOGIC 

RFLS 3 ALL 3 M 
RF200 LINK INCRSC ; 
JUMP ON RSCNEM1 TO *-1 

1 SO IA6 CODE AT END WORKS 

ALLS RM NX ADD M 
200 LINK INCRSC EAC DIVLOGIC 



'JUMP ON GT TO IAB 



AL RM 
RYRF240 

RFLS 3 
RF200 



NX ADD 
"EAC DIVLOGIC 



ALL 







AL NOP NX 
RF200 



ANOT 



RA ; 



RB ; 



RA 



RB 



INC RB => RB TRs ALL 
RA ADD RM => RY 



#,ALL RF 
200 #SETCC 



RA ; 

RA ; 

RB ; 

L M RB ; 

'JUMP ON GE TO XCB 
SETCC 60 TO DIV27 
RA ; 



JUMP ON LT TO DIV17 



PA6E 0028 



0A8: 1300 1007 0C06 

0A9: AE94 1014 0009 

OAA: 2F30 2A44 0004 

OAB: AE94 1C44 0009 

OAC: 2F30 2A45 0004 

OAD: AE94 1045 0009 

OAE; 8E94 1004 0009 

OAF: 2F60 2A04 0004 

OBO: 8E94 1307 0000 

0B1: 8704 2274 0006 

0B2: EAOO 2A04 0004 

0B3: F200 0804 0002 



609E 
(1479) 
(148C) 

00 CO 
(1481) 
(1482) 

F146 
(1483) 
(1484) 

0000 
(1485) 
(1486) 
(1487) 

90AB 
(1488) 
(1489) 

0000 
(1490) 
(1491) 

0000 
(1492) 
(1493) 

61A8 
(1494) 

0000 
(1495) 
(1496) 
(1497) 

71 A2 
(1498) 
(1499) 

010F 
(1500) 
(1501) 
(1502) 
(1503) 

0136 
(1504) 



* 
UII3 



CPU 
CPU 
CPU 
CPU 

CPU 

CPU 

CPU 

ALU 
CPU 

CPU 



ALLS RM NX 
200 DIVER 



SUB 1 M 
*EAC OIVLOGIC 



RA 



RFLS 3 
RF200 

ALLS RM 

RF280 

RFLS 3 
RF200 



ALL 3 M RB ; 
LINK ,JUNP ON FCBIT TO DIVER 



NX SUB 1 M 

LINK ,EAC DIVLOGIC 

ALL 3 M 

LINK INCRSC ; 



JUMP ON RSCNEN1 TO *-1 

ALLS RM NX SUB 1 M 
200 LINK INCRSC EAC DIVLOGIC 

AL RM NX SUB 1 N 
RYRF240 ssEAC DIVLOGIC 

RFLS 3 ALL 6 M 
RF200 "JUMP ON GE TO XCB 

RA SUB RM => RY SETCC 

AL KEYS ALL RF 1 M 
RM200 AOVFL * ; 
JUMP ON GT IAB 



BB RY 
RF200 



NX 
"GO TO LDA41 



UN1MPLEMENTED INSTRUCTION VECTOR 

RR RCM = '66 => RY 

CPU BB RM NX 



RA 



RB 



RA ; 



RA 



RB ; 



RB ; 



RB ; 



11 ; 
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(1505) 












(1506) 






OBA: 


EEOO 


95CA 


OOOA 0077 
(1507) 


* 










(1508) 


* 


FINI 








(1509) 


* 










(1510) 


ILL3 


RR 


0B5: 


F200 


080A 


0002 013A 
(1511) 




RR 


0B6: 


0300 


OOOA 


OOOA OOBA 












(1512) 


STA3 


ALU 


0B7: 


6A65 


130D 


0000 0000 
(1513) 
(151A) 




CPU 


0B8: 


1300 


2AB0 


0000 0000 












(1515) 


ADD3 


ALU 


0B9: 


8A65 


130D 


OOCC 0000 
(1516) 
(1517) 




CPU 


OBA: 


EFCO 


B58A 


0000 0000 
(1518) 




ALU 


OBB: 


8E60 


2A7A 


0000 0000 
(1519) 




ALU 


OBC: 


931C 


2A0A 


0000 FFFF 
(152Q) 




RR 


OBD: 


ooco 


B10A 


OOOC 0000 
(1521) 




ALU 


OBE: 


8E68 


1A70 


OOOC 0000 












(1522) 


M11 


CPU 


OBF: 


1202 


07CA 


OOOA 001C 
(1523) 




EJCT 



RMRFMRDY AREAD NOP 
GO TO AVECT1 



FINISH ILLEGAL INSTRUCTION VECTOR 

RCM = '72 => RY 

,,TR = ALL #G0 TO UII3+1 

INC RY => RY EAF 

RF NOP ALL M RB ; 

RM280 MtfRITE JAKF 

INC RY => RY EAF 

BB RM ALL M 13 ; 
RMRFMRDY MREAD 

RB PLUS RM -> RB C= AOVFL 

RB AND RCM = $7FFF => RB TR= ALL 

13 -> RM 

RA PLUS RM ♦ CBIT = > RA JAMF C= AOVFL 

#,NX,,,RY,0,RMMRDY,AREAD*#GO TO MI2 
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(1524. 


\ * 


(1525 


I * 


(1526, 


I * 


<1527 


I * 


(1528] 


I * 


(1529: 


I * 


(1530: 


I * 


(1531, 


I * 


(1532] 


r * 


(1533: 


I * 


(1534: 


I * 


(1535 


I * 


(1536: 


I * 


(15373 


* 


(1538] 


> * 


(1539: 


I * 


(1540: 


i * 


(1541] 


• * 


(1542: 


I * 


(1543: 


I * 


(15443 


* 


(1545] 


► * 


(1546: 


I * 


(1547: 


I * 


(1548) 


> * 


(1549] 


> * 


(1550] 


> * 


(1551] 


i * 


(1552] 


► * 


(1553] 


I * 


(1554] 


I * 


(1555: 


I * 


(1556] 


I * 


(1557) 


* 


(1558] 


I * 


(1559] 


i * 


(1560] 


I * 


(1561] 





MICRO-VERIFICATION ROUTINES. THESE ROUTINES ARE DIVIDED 
UP INTO »13 TESTS. THE TEST NUMBER IS LOCATED IN RY AT 
LEAT AT THE END OF THE TEST WHEN CHECKS ARE DONE 
TO SEE IF THE TEST WAS SUCESSFUL OR NOT. IF A TEST FAILS* THE 
TEST NUMBER IS DISPLAYED ON THE CONTROL PANEL LI6HTS VIA THE 
THE BMA PATH. THESE ROUTINES ARE EXECUTED FOR THREE DIFFERENT 
FUNCTIONS: 

MASTER CLEAR: 

THE TESTS ARE RUN UNTIL THEY ASE ALL PASSED. UPON COMPLETION* 
THE CONTROL PANEL ROUTINE IS ENTERED. FAILURE OF ANY TEST 
CAUSES A DELAY* FOLLOWED BY A RETRY OF ALL THE TESTS. 

MACHINE CHECK: 

ENTERED ON THE DETECTION OF A CPU PARITY ERROR* THE TESTS ARE 
RUN EXACTLY AS IN MASTER CLEAR EXCEPT THAT WHEN THE TESTS ARE 
SUCESSFULLY COMPLETED* THE MACHINE CHECK VECTOR IS 
EXECUTED. 

VERIFY CVIRY): 

THIS IS AN EXPLICIT USER REQUESTED EXECUTION OF THE TEST 

ROUTINES. SUCCESS IS REWARDED BY SKIPPING 

THE NEXT SEQUENTIAL INSTRUCTION* FAILURE IS SHOWN 

BY PUTTING THE FAILED TEST NUMBER INTO RA AND EXECUTING 

THE NEXT SEQUENTIAL INSTRUCTION. 



TEST 0: TESTS ALU =0 ,SUB *=0 CONDITIONAL BRANCH* RCM =0* 
CONTROL UNIT AND SETCC. 



ORG 



SC4 
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(1562) 


V 


0C4: 


903C 


0204 


OOOQ 0000 
(1563) 
(1564) 




0C5: 


8C3C 


1D0E 


0008 05FB 
(1565) 
(1566) 




0C6: 


1094 


1007 


0002 0100 
(1567) 
(1568) 
(1569) 




0C7: 


0894 


1007 


0004 4000 
(1570) 
(1571) 
(1572) 
(1573) 


* 
* 
* 


0C8: 


903C 


0A04 


OOOA 0504 
(1574) 
(1575) 




0C9: 


8865 


1304 


0004 40FC 
(1576) 
(1577) 
(1578) 
(1579) 
(1580) 


* 
* 
* 


OCA: 


8865 


1304 


0007 10FC 
(1581) 
(1582) 
(1583) 
(1584) 
(1585) 
(1586) 
(1587) 
(1588) 


* 
* 

* 
* 
* 


OCB: 


9004 


0A05 


0004 90CB 
(1589) 




OCC: 


9094 


0007 


0002 0040 
(1590) 





VIRY1 



ALU 

CPU 

Cpu 

CPU 



CON => RM 



TR= NONE 



TEST 2 



AL RM NONE ZERO L N RA RYRF240 *LOADRSC ; 
MODAL NOP (54*56,57*58*59*60*61*63*64) 



RCM NONE SUb 1 
200 *SETCC DATA C 

RY NONE SUB 1 
200 *SETCC ; 
JUMP ON NE TO Fl 



M 



ra ; 
ra ; 



TEST 1: TESTS RY => BB 

ALU CON => RX *TR = NONE EAC CLRNVKEYS (54*56*62) 

ALU INC RY => RY *TR = NONE ; 
JUMP ON NE TO FOUT 



TESTS MACHINE CHECK RESET 



ALU INC RY => RY TR = NONE * ', 
JUMP ON MC TO FOUT 



TEST 3: TESTS SHIFT COUNTER INCREMENTING AND 

THE RSCN0TEQM1 TEST. ALSO RX + 1 => RX* AND COUNTS FOR 
PROPER NUMBER OF INCREMENTS. (THIS TEST WILL SHOW AS #2 
IF RSCNEM1 IS ALWAYS TRUE.) 

ALU INC RX => RX TR = NONE INCRSC ; 
JUMP ON RSCNEM1 TO * 

ALU RX MINUS RCM = $40 => NULL TR= NONE SETCC 

ALU INC RY => RY TR= NONE * ; 
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CCD: 8865 1304 0004 



OCE 

OCF: 

000: 

0D1: 
0D2: 

003: 
0D4: 
005: 



FOOO 
923C 
903C 

8865 

0000 

E800 
FOOO 
FOOO 



0804 
0204 
0904 

1304 
0004 

0604 
0204 
0A04 



0002 
0000 
0000 

0007 
0008 

OOOC 
0004 
0004 



006: 92CC 1AG4 0008 



007: 3E70 1A54 0000 



(1591) 

40FC 
(1592) 
(1593) 
(1594) 
(1595) 
(1596) 
(1597) 
(1598) 

0003 
(1599) 

0000 
(1600) 

OOOC 
(1601) 
(1602) 

20FC 
(1603) 

0404 
(1604) 
(1605) 

0002 
(1606) 

00 CF 
(1607) 

OOCF 
(1608) 
(1609) 
(1610) 
(1611) 

4000 
(1612) 
(1613) 
(1614) 

0000 
(1615) 
(1616) 
(1617) 



VIRY12 ALU 
CPU 
ALU 



JUMP ON NE TO FOUT 

TESTS 4,5*6: THESE TESTS VERIFY THAT EACH OF THE RE6ISTERS 

CAN DETECT BAD PARITY. 4 TESTS RY, 5 RM, AND 6 RF- ALSO 
CHECKED: 16 WAY BRANCH, MC- TEST. 

CPU BB RCM NONE ,,,,RY200 ,, I 
EMIT $100 $003 

CON => RM TR = NX 

AL NOP NONE ZERO L ,,RF160 

INC RY => RY TR= NONE , r 
JUMP ON MCNOT TO FOUT 

RR ,,,TR- NONE MODAL NOP (TR IGNVKEYS,MCHK) 

CPU BB RY NONE ,,,,280 ,, ,' 
S ON TRUE, 16WAYS TO V1RY12+1 

RR RCM => RM TR= NONE ,60 TO VIRY12 

RR RCM => RX TR= NONE ,60 TO V1RY12 

TEST 7: PARITY ON LEFT SHIFT, ROTATE 
ALU CON -1 => RA , EAC LOADSERI ALINT 



* LOGICAL LEFT SHIFT 

CPU RFLS 7 NX 

RF200 RF01 

* LOGICAL LEFT ROATATE 

CPU RFLS 1 NX 

RF200 ,, ; 







M 



RA 



RA 



PA6E 0033 



(1618) JUMP ON MC TO VIRY12-5 
008: 2680 1AG4 0007 10C* 

(1619) * ROTATE 64 TIMES 

(1620) RR RA «> RA INCRSC ; 

(1621) JUMP ON RSCNEM1 TO *-1 
0D9: 0200 1A05 0004 90D8 

(1622) * 

(1623) * TEST 7 (CONT): TEST C BIT FOR SET* LOAD AND RESET 

(1624) * CBIT SHOULD BE SET SO RA IS TESTED A6AINST -2 

(1625) * 

(1626) ALU RA MINUS RCM = -2 + CBIT => RA ; 

(1627) C= BD01 SETCC 
ODA: 9298 1A37 0003 FEFE 

(1628) CPU RF NOP NX MINUS1 L M RP ; 

(1629) RM200 , SETCC ; 

(1630) JUMP ON NE TO VIRY12-2 
ODB: 12CC 7207 0004 40CD 

(1631) * 

(1632) * TEST MO: WRITE BITS THROUGH REGISTER FILE. CHECK 

(1633) * PATTERN USING EXCLUSIVE ORS TO VERIFY PROPPER 

(1634) * OPERATION. ZERO OUT FILES. 

(1635) * 

(1636) RR RCM = $FFCO => RX TR = NX 
ODC: F200 0A04 0003 FFCO 

(1637) CPU AL NOP NONE RF 1 RSC ; 

(1638) RY240 , INCRSC ; 

(1639) JUMP ON EG TO **2 
ODD: 9007 0305 0006 40DF 

(1640) CPU BB RY NONE BB L RSC ,* 

(1641) RF200 , SETCC ; 

(1642) GO TO *-1 
ODE: E85F 0A07 0004 OODD 

(1643) RR RCM = S-FFE1 => RY 
ODF: F200 0804 0003 FFE1 

(1644) ALU INC RY -> RY INCRSC ; 

(1645) JUMP ON NE TO **4 
OEO: 8A65 1305 0004 40E4 

(1646) CPU RF NOP NX INC CBIT RSC ; 
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0E1: 120B 0007 0000 



0E2: 8A6F 0A07 0004 



0E3; 
0E4; 
0E5: 
0E6: 



8A3C 

EE00 
F200 
0200 



1A0E 
7A04 
0804 
0004 



OOOC 
0000 
0002 
0004 



0E7 
0E8 
0E9: F66F 



F203 
EA02 



0D04 
1204 
2307 



0003 
0000 
0000 



OEA: FA6F 2207 0004 



OEB: 4A23 0D04 0004 



(1647) 

0000 
(1648) 
(1649) 
(1650) 

40E0 
(1651) 
(1652) 

0000 
(1653) 

0000 
(1654) 

0008 
(1655) 

40FC 
(1656) 
(1657) 
(1658) 
(1659) 
(1660) 
(1661) 
(1662) 
(1663) 

4BA5 
(1664) 
(1665) 

OOOC 
(1666) 
(1667) 

0000 
(1668) 
(1669) 
(1670) 

40EE 
(1671) 
(1672) 
(1673) 

40EE 



CPU 

CPU 

RR 
RR 
RR 

TEST 

CPU 
CPU 
CPU 
CPU 

CPU 



200 ,SETCC 

AL RY NX XOR 
RF20G *SETCC ; 
JUMP ON NE TO *-2 



RSC 



AL RY 
RF200 



NX ZERO 
#LOADRSC 



; 



ra ; 



RM => RP TR= NX 

RCM = MO => RY 

• "JUMP ON NE TO FOUT 



11: I/O BUS TEST. ALTENATIN6 ONES AND ZEROS ARE 
SENT OUT BOTH BPA AND BPD AND READ BACK IN. THIS 
CHECKS CPU LOU C IN THE PATH AND 'STUCK AT' FAULTS ON THE 
CONTROLERS. 



NX 
"DATA SA5A5 

NX 



BB RCM 
RYRF240 

BB RY 
RM200 

BB BPA 
RY240 

BB BPD 

RM200 

JUMP ON NE TO **4 

RFRS 2 NX 2 
RYRF240 ,, ; 
JUMP ON NE TO **3 



NX XOR 
#SETCC 

NX XOR 
#SETCC ; 



RSC 



RY 



RSC 



RSC 



RSC 



o ; 



PIO 



DATA ; 



DATA ; 
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(1674) 
(1675) 

OEC: F66F 2307 OOOG OOOC 

(1676) 
(1677) 
(1678) 

OED: FA6F 2207 0006 40FC 

(1679) 

OEE: F200 0804 0002 0109 

(168C) 
(1681) 

OEF: 923F 0A04 0004 OOFC 

(1682) * 

(1683) * 

(1684) * 

(1685) * 

(1686) * 

(1687) * 
(1688) 

OFO: F200 0804 0002 0105 

(1689) 
(1690) 

0F1: ECOO 0AF4 0000 OOOC 

(1691) 
(1692) 

0F2: E800 0804 0000 0000 

(1693) 

0F3: 1000 07C4 0000 OOOC 

(1694) 

0F4: 8E6C OA07 0000 0000 

(1695) 

0F5: FOOO 0804 0002 010A 

(1696) 

0F6: 0200 0004 0004 40FC 

(1697) * 

(1698) * 

(1699) * 

(1700) * 



CPU BB BPA NX XOR 

RV240 ,SETCC 

CPU BB BPD NX XOR 

RM200 ,SETCC ; 
JUMP ON EQ TO **3 

RR RCM * *11 => RY 

CPU AL NOP NX ZERO 

RF200 ,,60 TO FOUT 



RSC 



RSC 



DATA ; 



DATA ; 



RSC 



o ; 



TEST/12: MEMORY TEST. LOCATION 5 (UNDER THE REGISTERS) 

IS TESTED TO SEE IF ONES AND ZEROS CAN BE WRITTEN AND READ 
NOTE THAT A MISSING FIRST 8K CAN CAUSE A MISSING MEMORY 



RR 
CPU 

CPU 

CPU 
ALU 
RR 
RR 



TRAP 

RCM - 5 

BB RM 
RF200 

BB RY 

RY200 



=> RY 

NONE 
AWRITE 

NONE 



RX 



"NONE ,,,,RMMRDY AREAD 
RX XOR RM => RX SETCC 
RCM = "12 => RY TR= NONE 
,,*JUMP ON NE TO FOUT 



TEST -13: PARITY TEST. AFTER VERIFYING PARITY WORKS IN 

TESTS 4,5, AND 6, THE REST OF THE TESTS ARE RUN WITH 
PARITY ENABLED. IF MACHINE CHECK GETS SET DURING THOSE 
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(17 01> * TESTS, '13 WILL FAIL. 

0F7: 8A65 1304 OOC^Iofc' * LU ^ " Y => " ~ JU " P ° N " C T ° F0UT 

(1704) * 

(1705) * SUCCESSFUL TEST COMPLETION 

(1706) * 

<1707 > CPU BB RCM NX RF ft Rp 
0F«: F200 7337 OOOc'oSOo' RY2 °° B °° 1 SETCC ° AT * ' 100 ° 

0F9: 923C 0204 0006 "HV * L ° "" ° => "" ' JU " P ° N E ° T ° " C < 

(1710) RR ,,CLEARFUII JUMP ON FUII TO CAS5 

OFA: 0200 OCOF 0005 51E5 

<1 7 11> RR **,G0 TO CPPAR3 

OFB: 0200 0004 0004 007E 

(1712) * 

(1713) * FAILED TEST COMPLETION/RETRY 

(1714) * 

(1715) FOUT CPU BB RY NONE M 
<1716> RF200 ,, ; 
<1 7 1?> JUMP ON FUII TO F1 



OFC: E800 1A04 0005 5000 

(1718 
OObE 
(1719) EJCT 



RA 



nt „ „ n , n „ <1718> A LU CON => RX TR= NONE , 60 TO F0UT1 
OFD: 903C 0A04 0004 008E 
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(1720) 




ORG 


$100 










(1721) 


ENTR 


ALU 


RS MINUS 


RY => RY 


100: 


8A94 


3304 


0000 0000 
















(1722) 




CPU 


RF,,ALL,, 


•M,RS,RM280#MWRITE 


101: 


1300 


34B4 


0000 oocu 
















(1723) 




RR 


RY => RS 


JAMF 


102: 


£800 


390C 


0000 0000 
















(1724) 


FLX1 


RR 


RM => RX 


/•GO TO FLX2 


103: 


EE00 


0A04 


0004 012A 
(1725) 




ORG 


$104 










(1726) 


RTN 


RR 


RS => RY 




104: 


0200 


3804 


0000 0000 
















(1727) 




CPU 


• #ALL/>/>,#,RMMRDY*MREAD 


105: 


• 1300 


0784 


0000 0000 
















(1728) 




ALU 


INC RM => 


RY 


106: 


8E65 


1304 


0000 0000 
















(1729) 




CPU 


BB RM 


ALL BB L M 








(1730) 






RMRFMRDY 


MREAO SETCC 


10 7: 


EF5C 


9587 


0000 0000 
















(1731) 




RR 


11 => RY 


*JUMP ON EQ TO *+3 


108: 


0200 


9804 


0006 4106 
(1732) 




RR 


RY => RS 




109: 


E800 


3904 


0000 oooc 
















(1733) 




RR 


RM => RP 


JAMF TR= NX 


10A: 


EEOO 


7A0C 


0000 0000 
















(1734) 




RR 


RCM = "75 


=> RY 


10B: 


F200 


0804 


0002 0030 
















(1735) 




RR 


RP => RM 


/-GO TO UII3+1 


10C: 


0200 


7204 


0004 00b4 
















(1736) 


FGEN 


CPU 


RF NOP 


NX M 








(1737) 






RF240 


NOP GO TO FGEN1 


10D: 


1200 


CB04 


0004 0406 
(1738) 
(1739) 


* 


ORG 


$110 










(1740) 


* 


INSTRUCTION EXECUTION SPACE 








(1741) 


* 












000420 (1742) 


EVMX 


EQU 


* 








000420 (1743) 


ERMX 


EQU 


• 





11 



PA6E 0038 



000420 (1744) EVMJ EQU 

(1745) ERMJ RR 
110: 0200 7£04 0007 406£ 

(1746) CPU 
(1747) 

(1748) 
111: EF00 B584 0008 0411 

(1749) rr 
112: EEOO 0800 OOOA 8000 

(175G) CPU 

(1751) 

(1752) 
113: 9304 7584 0005 B1 F2 

(1753) RR 
114: EEOO 7A04 OOOC OOCC 

(1754) RR 
115: 0200 8204 0009 COOO 

(1755) EPMJ6 RR 
116: 0300 OOOC 0008 042C 

(1756) ERM RR 
117: 0200 0002 0008 0411 

(1757) NRM RR 
118: FOOO 013E 0002 0100 

(1758) CPU 
(1759) 

119: 1300 1064 0000 0000 

(176C) CPU 

(1761) 

(1762) 
11A: 3E30 2A44 0004 F11C 

(1763) CPU 

(1764) 

(1765) 
11B: 2F70 1A65 0004 9119 

(1766) CPU 

(1767) 
11C: 4260 2A04 0000 0000 

(1768) rr 



RP => RY NOP JUMP ON RXM TO RXM 

BB RM ALL M 13 I 

RMRFMRDY MREAD NOP ; 

MODAL NOP (TRIGNVKEYS,RXM,EINTM) 



RM => RY EAF 



EAC SETFUII 



AL NOP ALL INC 1 
RMRFMRDY MREAD NOP ; 
JUMP ON RSC12 TO EVMXl 



RP ; 



RM => RP TR= NX 

13 => RM TR= NX ,EAC CLEARCAM 

,,JAMF TR = ALL MODAL NOP (TRIGNVKE YS^PAM) 

"RESTJAMF MODAL NOP (TRI6NVKEYS #RXM,E INTM ) 

RCM =0 => RM C= BD01 LOADRSC 



RF NOP ALL 
200 S0VF1 

RFLS 7 NX 3 
RF200 LINK , ; 
JUMP ON FCBIT TO *+2 

RFLS 3 ALL 7 
RF200 SOVFL INCRSC ; 
JUMP ON RSCNEM1 TO *-2 



RA ; 



RB ; 



RFRS 
RF200 

RSC => 13 



NX 



RA 



RB 
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1 1 Dr E400 B904 0000 0000 

(1769) ALU 
11E: 911C BD04 000? 013F 

(1770) KR 
11 F: 0200 0004 0004 0194 

000440 (1771) EPHX EQU 
000440 (1772) LPMX EQU 
000440 (1773) LPMJ EQU 

(1774) EPMJ RR 
120: 0200 7804 00C? 406S 

(1775) CPU 
(1776) 

121: EFOO B584 0004 0112 

(1777) XEC RR 
122: 0200 0004 0004 A124 

(1776) CPU 
(1779) 

123: 1200 1F84 0004 0004 

(1780) ALU 
124: 92F0 7A0F 0005 5124 

(1781) RR 
125: 0200 OCOO 0000 OOOG 

(1782) VIRY RR 
126: 0200 0006 OOOA 8000 

(1783) RR 
127: 0200 0004 0004 00C4 

000450 (1784) CEA3 EQU 

(1785) EAA RR 
128: EAOO 1A0C 0000 OOOC 

(1786) FLX CPU 
129: 1300 0784 0004 0103 

(1787) FLX2 CPU 
(1768) 

12A: 3E30 OAOC 0000 OCCC 

(1789) JEQ ALU 
12B: 9200 1007 0000 0000 

C179C) RR 
12C: 0200 OOOC 0006 4100 



13 AND RCM = $3F => CRY, 13) TR= TDMX 
^,60 TO OTK + 2 



RP => RY NOP JUMP ON RXM TO RXM 

BE RK ALL « 
RMRFMRDY MREAD ,G0 TO ERWJ+2 

"•JUMP ON FETCH! TO **2 



RF NOP NX 
CLMCLFCLI MREAD ,G0 TO F9 



M 



13 ; 



RA 



DEC RP => Rp CLEARFUII JUMP ON FUII TO * 

*,JAMF 

"REST EAC SETFUII 

"*G0 TO VIRY1 

RY => RA TR= NX JAMF 
##ALL"#"RMMRDY MREAD #60 TO FLX1 

M RX ; 



RFLS 7 

RF200 



NX 3 

• JAMF 



INC RA ♦ => NULL SETCC 
"JAMF JUMP ON EQ TO JMP 



PA6E 0040 



(1791) JNE ALU INC RA + C => NULL SETCC 
12D: 9200 1C07 0000 0000 

(1792) RR ,,JAMF JUMP ON NE TO JMP 
12E: 0200 OOOG 0004 41D0 

(1793) JLE ALU INC RA ♦ => NULL SETCC 
12F: 9200 1007 0000 OOOG 

(1794) RR ,,JAMF JUMP ON LE TO JMP 

130: 0200 OOOC 0004 71DC 

(1795) J6T ALU INC RA ♦ => NULL SETCC 
131: 9200 1007 0000 0000 

(1796) RR ,,JAMF JUMP ON 6T TO JMP 
132: 0200 0000 0006 7100 

(1797) AOA ALU INC RA => RA C= AOVFL JAMF DATA 
133: 9204 1A70 0002 0100 

(1798) JLT ALU INC RA + => NULL SETCC 
134: 9200 1007 0000 0000 

(1799) RR ,,JAMF JUMP ON LT TO JMP 
135: 0200 OOOC 0006 61DC 

(1800) J6E ALU INC RA + => NULL SETCC 
136: 9200 1007 0000 0000 

(1801) RR ##JAMF JUMP ON 6E TO JMP 
137: 0200 OOOC 0004 61D0 

(1802) JOX ALU DEC RX => RX SETCC 7 

(1803) 60 TO JNE+1 
138: 92F0 0A07 0004 012E 

(1804) JIX ALU INC RX => RX SETCC '. 

(1805) 60 TO JNE+1 
139: 9204 0A07 0004 012E 

(1806) JSX RR RP => RM 
13A: 0000 7104 OOOC 0000 

(1807) RR RM => RX ,60 TO JMP 
136: EEOO 0A04 0004 01D0 

(1808) CREP RR RY => 13 
13C: E80C B904 OOOC 0000 

(1809) ALU INC RS -> RY 
130: 9204 3304 0000 0000 

(1810) CPU RF NOP ALL M RP 

(1811) RM280 MWRITE 
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13E 
13F; 

1A0; 
141: 

142: 
143: 

144: 

145: 

146: 
147: 



1300 
0200 

EB00 
200 

EAOO 
0200 

1300 

0E6C 

4260 
1300 



74B4 
B804 

AA04 

7204 

AAQ4 
7204 

078E 

1007 

2A0C 
0784 



148: EE01 OAOC 



0000 OOOC 
(1812) 

0004 01D0 
(1813 
(1814 

(1815 
(1816 

0000 0000 
(1817 

0004 O0B3 
(1818 
(1819 
(1820 
(1821 

0000 0000 
(1822 

0004 00B5 
(1823 
(1824 
(1825 

0003 FEF1 
(1826 
(1827 

0004 00A8 
(1828 
(1829 

OOOC 0000 
(1830 

0000 0000 
(1831 
(1832 

0000 0000 
(1833 
(1834 
(1835 
(1836 
(1837 
(1838 



RR 



13 -> RY *60 TO JMP 



* 
UII 



* 
* 
* 
ILL 



DIV 



LDX 



UNIMPLEMENTED INSTRUCTION VECTOR (UII> 

RR RY => EAS TR= ALL 

RR RP => RM ,60 TO UII3 

ILLEGAL INSTRUCTION VECTOR (ILL) 



RR 

RR 
CPU 

CPU 
DIVER CPU 



RY -> EAS TR= NX 

RP => RM ,G0 TO ILL3 



RCM 
RMMRDY 
DATA -15 



ALL 
MREAD LOADRSC 




200 



RM NX 
,SETCC 



XOR L 
GO TO DIV4 



RFRS 
RF200 



CPU 
CPU 



ALL 



, # r t t 



NX 


RMMRDY 



6 
JAMF 







BB RM 
RF200 



NX 
/-JAMF 



MREAD 




XM 



RA 



RB 



* 

* INSTRUCTION EXECUTION. IN THIS SECTION, INSTRUCTIONS 

* (INDICATED BY THE LABELS) ARE EXECUTED. 
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(1839) * SEVERAL GEN 8 INSTRUCTIONS DECODE TO THE SAME PLACE. AS 
(18AC) * A RESULT* THEY MUST BE SPECIALLY DECODED BY TESTING FOR DIF- 

(1841) * FERENT OP CODES IN RM. 

(1842) * 

(1843) GENB RR ,,,JUMP ON RSC12 TO RKC 
149: 0200 0004 0005 B187 

(1844) RR ,,#JUMP ON RS16 TO GENB1 
14A: 0200 0004 0005 2183 

(1845) HLT RR RP => RY REST GO TO CP1 
146: 0200 7806 0004 0035 

(1846) SUB CPU ^ALLz-^^RMMRDY MREAD , JUMP ON DP TO SUB3 
14C: 1300 0784 0005 C16C 

(1847) ALU RA SUB RM => RA C= AOVFL JAMF 
14D: 8E94 1A7C 0000 0000 

(1848) JST CPU ,,ALL#*#*#RMMRDY MREAD 
14E: 1300 0784 0000 0000 

(1849) CPU AL RM NX RF M RP ,* 

(1850) RM200 #,EAC JST 
14F: 8E00 7204 0008 8000 

(1851) JST1 CPU BB RY ALL M RP ; 

(1852) RF200 MWRITE #60 TO CASS 
150: EBOO 7AB4 0004 01E5 

(1853) EJCT 



PAGE 0043 



CI854) 
(1855) 
(1856) 
(1857) 
(185b) 
(1859) 
(1860) 
(1861) 
(1862) 
(1863) 
(1864) 
(1865) 

151: 1202 160E 0002 0001 

(1866) 
(1867) 
(1868) 

3157 
(1869) 
(1870) 
(1871) 

7156 
(1872) 
(1873) 
(1874) 

154: 1003 8004 0006 318A 

(1875) 
(1876) 
(1877) 
0005 61E5 
(1878) 
(1879) 

0000 oooc 
(1880) 

0005 81EC 

(1881) 
0004 0156 

1 (1882) 
(1883) 



152: 1203 0204 0005 



153: FA03 0C04 0005 



155: 9003 0204 



156: 
157: 
158: 



8C5F 
1203 
1203 



OAOC 

0604 

8004 
00053' 



* 

* PROGRAMMED INPUT/OUTPUT. INA*OT A*SKS #AND OCP ARE 

* ALL EXECUTED USING THIS COMMON CODE. INSTRUCTION 

* SPECIFIC CODE IS EXECUTED AFTER TESTING THE TWO HIGH 

* ORDER BITS OF THE OP CODE. TH TESTS ON DEVICE 

* ADDRESS 20 ARE TO AVOID TESTING READY* CLEAN UP PARITY 

* AND NOT SKIP FOR DEVICE 20 DEVICES INCLUDING THE CONTROL 

* PANEL THE REAL TIME CLOCK* AND THE MASK CHANGE COMMANDS. 
* 

INA CPU RCM NX RY PIO ; 
280 NOP LOADRSC ; 
DATA 1 



INA1 



SKS 



PIO 
OTA 



CPU 
CPU 
CPU 
CPU 

CPU 

CPU 

CPU 

EQU 
RR 



RF NOP NX 
RM200 NOP NOP #* 
JUMP ON F01NOT TO SKS 







RSC 



RSC 







BB BPD NX 

RF280 NOP ; 

JUMP ON READYN0TANDNE20 TO INA1 



NOP NONE 

200 NOP NOP ; 

JUMP ON BPSP1N0T TO INA2 

AL NOP NONE RF 
RM200 NOP NOP ; 
JUMP ON DAN0T20 TO CAS5 



AL RM 
RF200 



NONE 
NOP 



BB 
JAMF 



RSC 



RSC 



RSC 



STROBE 







,*NX,,,RSC#0#280#*#JUMP ON READYANDFOE TO SKS1 
#*NX,,,RSC*STROBE*"*GO TO INA1 

RM => RY TR= ALL REST JUMP ON OTANOT TO INA 
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159: EF00 0806 0005 4151 

(1884) CPU RCW NX RY PIO ; 

<1885) 280 LOAORSC DATA 1 

15A: 1202 16GE 0002 0001 

(1886) CPU RF RCM NX RSC ; 

(1887) RM200 NOP LOADRSC DATA 7 
15B: 1203 C20E 0002 00G7 

(1888) CPU NOP NX RSC DATA ; 

(1889) 280 NOP NOP ; 

(1890) JUMP ON READYNOTANDNE20 TO F1 
15C: 12C3 2604 0005 700C 

(1891) CPU ,,,,,RSC (DATA, STROBE) 200 ,*JUHP ON DAN0T20 TO 0TA1 
15D: 1203 A004 0005 615F 

(1892) CPU #*ALL#^RSC DATA 200 *JAMF 
15E: 13Q3 2C0G 0000 OOOC 

(1893) 0TA1 CPU AL NOP ALL INC 1 RSC DATA ; 

(1894) RF200 NOP EAF ; 

(1895) 60 TO F1 
15F: 9307 2A0D 0004 OOOC 

(1896) EJCT 
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(1897) 
(1898) LDA3 

160: 8A65 130D 000C 0000 

(1899) 
(1900) 

161: EFOO 1584 0000 0000 

(1901) 

162: EEGO 2AQ.0 0000 OOOC 

(1902) FLO 
(1903) 

163: F300 6584 0002 01FF 

(1904) 
(1905) 

164: EEOO 4A04 0004 0456 

(1906) FAD 
(1907) 

165: 1300 0784 0004 040B 

(1908) FSB 
(1909) 

166: 1300 0784 0004 040D 

(1910) FMP 
(1911) 

167: 1300 0784 0004 0417 

(1912) FOV 
(1913) 

168: 1300 0784 0004 042B 

(1914) FST 
(1915) 

169: 1200 4204 0004 0464 

(1916) FCS 
(1917) 

16A: F300 9584 0002 01FF 

(1918) 
(1919) 

16B: EE6C 4637 0004 0466 

(192C) SUB3 

16C: 8A65 130D 0000 0000 

(1921) 



ORG 
ALU 


$160 

INC RY => 


RY EAF 










CPU 


BB RM 
RMRFMROY 


ALL 
MREAO 










M 


ra ; 


RR 


RM *> RB 


TR= NX 


JAMF 






CPU 


BB RCM 
RMRFMROY 


ALL 

MREAO 



NOP 



DATA 


M 
SOOFF 


vsc ; 


CPU 


BB RM 
RF200 


NX 
NOP 



NOP 



60 


TO 


M 
FLD1 


FLTH ; 


CPU 


NOP 
RMMROY 


ALL 
MREAD 



NOP 



GO 


TO 



FAD1 


o ; 


CPU 


NOP 
RMMROY 


ALL 
MREAD 



NOP 



GO 


TO 



FSB1 


o ; 


CPU 


NOP 
RMMROY 


ALL 
MREAD 



NOP 



GO 


TO 



FMP1 


o ; 


CPU 


NOP 
RMMROY 


ALL 
MREAD 



NOP 



GO 


TO 



FDV1 


o ; 


CPU 


RF NOP 

RM200 


NX 
NOP 



NOP 



GO 


TO 


M 
FST1 


FLTH ; 


CPU 


BB RCM 
RMRFMROY 


ALL 
MREAO 



NOP 



DATA 


M 
$OOFF 


11 ; 


CPU 


BB RM 


NX 


XOR 


L 




M 


FLTH ; 



280 B001 SETCC GO TO FCS1 
ALU INC RY => RY EAF 
CPU BB RM ALL 



13 
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(1922) 






16D: 


EF00 


B584 


0000 OOGO 
(1923) 




ALU 


16E: 


8E94 


2A07 


0000 0000 
(1924) 




RR 


16F: 


0200 


B204 


0004 614D 
(1925) 




ALU 


170: 


931C 


2A04 


0000 FFFF 
(1926) 




ALU 


171: 


8E90 


1A70 


0000 0000 












(1927) 


PIM 


ALU 


172: 


921C 


1204 


0001 0100 
(1928) 




ALU 


173: 


8E4C 


2204 


0004 01 DF 












(1929) 


PID 


ALU 


174: 


9200 


1307 


0000 0000 
(1930) 




ALU 


175: 


92CC 


1A04 


0004 61A3 
(1931) 




RR 


176: 


E800 


2904 


0000 0000 
(1932) 




ALU 


177: 


921C 


2A00 


0000 FFFF 












(1933) 


IMA 


RR 


178: 


0000 


1104 


0000 OOOG 
(1934) 
(1935) 




CPU 


179: 


EFOO 


B584 


0000 oooc 
(1936) 




RR 


17A: 


EEOO 


1A04 


0000 0000 
(1937) 
(1938) 




CPU 


17B: 


1300 


B4B0 


0000 OOGO 












(1939) 


MPY 


CPU 








(1940) 












(1941) 






17C: 


1300 


078E 


0003 FEF1 
(1942) 
(1943) 




CPU 



RMRFMRDY MREAD 

RB MINUS RM => RB SETCC 

13 -> RM TR= NX , JUMP ON GE SUB+1 

RB AND RCM ' S7FFF *> RB TR= ALL 

RA SUB RM ♦ -> RA C= AGVFL JAMF 

RA AND RCM = $8000 => RM 

RB OR RM => RM #60 TO LDA+1 

INC RA => RY ♦ SETCC 

CON -1 => RA /JUMP ON 6E TO XCA+1 

RY => RB 

RB AND RCM ' S7FFF => RB JAMF 

RA => RM 



BB RM ' ALL 

RMRFMRDY MREAD 

RM => RA TR= NX 

RF NOP ALL 

RM280 MWRITE 








JAMF 



RCM ALL 
RMMRDY MREAD LOADRSC /' 
DATA -15 



RFRS 5 
RY240 



NX 6 
LINK 



13 ; 
13 ; 

o ; 
ra ; 
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17D 
17E 
17F 



5660 
E800 

F000 



1344 
2904 
1904 



180: CE60 1B44 



181: 4360 2A45 0004 



182 
183 
184 

185 

186: 

187 



1B70 

0000 
6204 

1A0C 
1A0B 

0002 
00061 

0000 
00061 
00061 
00061 

189: 0200 OOOC 



18A: 8E4F OA04 



8E94 

0200 
931C 

EEOO 
864C 
0200 



188: 0200 



0000 0000 
(1944) 

0000 0000 
(1945) 

0002 0100 

(1946) 
(1947) 

0008 COOO 
(1948) 
(1949) 
(1950) 
9180 
(1951) 
(1952) 

0008 COOO 
(1953) 

0005 A184 
(1954) 

0002 01 FF 
(1955) 
(1956) 

0005 0186 
(1957) 

0004 0000 
(1958) 

0008 0404 

(1959) 
(1960) 

0008 0140 

1 (1961) 
1 (1962) 
1 (1963) 

(1964) 
0008 010C 
(1965) 
(1966) 
(1967) 
0004 01E5 



6ENB1 



SCA 



INK 

RMC 

OBL 
SGL 

E16S 
E32S 
E32R 
E64R 

1NA2 



RR 
RR 
CPU 

CPU 

CPU 

RR 

ALU 

RR 

ALU 

RR 

EQU 
RR 

EQU 
EQU 
EQU 
RR 

CPU 



RY => RB 

RCM = => RA 

ALRS RM NX ADD M 

RF240 LINK ,EAC MPYL06IC 

RFRS ALL 6 M 

RF200 LINK INCRSC ; 

JUMP ON RSCNEM1 TO *-1 



RA 



RB 



AL RM NX SUB 1 M RA ; 
RF240 AOVFL JAWF EAC MPYLOGIC 

,,JAMF JUMP ON RSC11 TO **1 

VSC AND RCM = $FF => RM TR* ALL 

RM => RA JAMF ; 
JUMP ON RS15 TO *+1 

RA OR KEYS => RA DISABLERHBB 60 TO F1 

,,RESTJAMF MODAL NOP CTRIGNVKEYS#MCHK) 



* 
^JAMF 

* 
* 



MODAL NOP (TRIGVKEYS/DP) 



,,JAMF MODAL NOP (TRI6VKEYS ,AM1 , AM2) 

RSC ; 



AL RM NX 
RF200 
GO TO CAS5 



OR L 
NOP ; 



PA6E 0048 



18B 
18C 

18D 
18E 
18F 

190: 
191 

192: 
193: 
194: 
195: 



F0C0 060C 0000 
0200 



0200 
0200 
EAOO 

0200 
0200 

0200 
931C 
921C 
8A4C 



1204 0004 
000615 

0004 0007 

OOOC 0008 

2A04 0004 
000620 

0004 0007 

OCCC 0008 

1034 OOOA 

1304 0002 

6A04 0003 

6A00 0000 



196: 
197: 
198: 



0200 
0200 
F200 



000626 
0004 0007 
0000 0008 
0804 0002 



C1968) 
(1969) 

0328 
(1970) 

001C 
(1971) 
(1972) 

4068 
(1973) 

0402 
(1974) 

01DF 
(1975) 
(1976) 

4068 
(1977) 

041C 
(1978) 
(1979) 

4100 
(1980) 

01FF 
(1981) 

FFOO 
(1982) 

0000 
(1983) 
(1984) 
(1985) 
(1986) 
(1987) 
(1988) 
(1989) 

4068 
(1990) 

0408 
(1991) 

0135 



CEA 



EMCM 
LMCM 



IAB2 

ENB 
INH 



OTK 



CPU 

RR 

EQU 
RR 

RR 

RR 

EQU 
RR 

RR 

RR 

ALU 
ALU 
ALU 



BB RCM NONE ,,,#280 ,PUSHBD 
DATA CEA3 

RA => RM , GO TO F6 



,,,JUMP ON RXR TO RXM 

,,JAMF MODAL NOP (TR IGNVKEYS ,PARIM) 

RY => RB TR= NX ,G0 TO LDA+1 

* 

,,,JUMP ON RXM TO RXM 

,,JAMF MODAL NOP (TR IGNVKEYS, E INTM) 

RA => , TR= NX C= BD01 , ; 
EAC PLOADVKEYS TRI6VKEYS 

RA AND RCM = $FF => RY TR= ALL 

VSC AND RCM = SFFOO => VSC 

VSC OR RY => VSC JAMF 



* NON-VISIBLE KEYS ARE TRIGGERED ON CA1 BECAUSE THIS 

* INHIBITS INTERRUPTS FOR THE FOLLOWING INSTRUCTION. 

* (JST CONCATINATION ALSO PERFORMS THE SAME FUNCTION. 

* 

ESIM EQU * 

EVIM RR ,,,JUMP ON RXM TO RXM 



SVC 



RR 
RR 



,,JAMF MODAL NOP (TRI 6NVKEYS ,V IM) 
RCM = »65 => RY 
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(1992) 




CPU 


199: 


1000 


07C4 


0004 0078 












(1993) 


ISI 


RR 


19A: 


E200 


1A04 


0000 OOOC 
(1994) 




ALU 


19b: 


901C 


1A02 


0002 010F 












(1995) 


OSI 


RR 


19C: 


0200 


0004 


0007 4068 
<1996) 




RR 


19D: 


0200 


100C 


0008 4000 












(1997) 


CRL 


RR 


19E: 


F200 


1A04 


0002 010C 












(1998) 


CRB 


RR 


19F: 


F200 


2AO0 


0002 01 OC 












(1999) 


CHS 


ALU 


1A0: 


926C 


1A00 


0001 01QC 












(2000) 


SSP 


ALU 


1A1: 


921C 


1A0C 


0000 FFFF 










000642 (2001) 


1AB 


EQU 








(2002) 


XCA 


RR 


1A2: 


0200 


1804 


0005 21A8 
(2003) 




RR 


1A3: 


EA00 


2A04 


0004 01CE 












(2004) 


SOA 


ALU 


1A4: 


9 294 


1A70 


0002 0001 












(2005) 


IRX 


CPU 


1A5: 


9205 


0A07 


OOOC- 0000 
(2006) 




RR 


1A6: 


0200 


OOOC 


0006 41 E5 












(200?) 


RCB 


RR 


1A7: 


F200 


0030 


0002 0100 












(2008) 


XCB 


RR 


1A8: 


0200 


2204 


0005 218F 
(20G9) 




RR 


1A9: 


EEOO 


1A04 


0004 019F 












(2010) 


DRX 


CPU 








(2011) 






1AA: 


92F1 


0A07 


0004 D1A6 







"N0NEs,,s,RMMRDYsAREAD*s60 TO AVECT+1 

SI => RA TR= NX 

RA AND RCM = $F «> RA TR= RESTJAMF 

#"JUMP ON RXM TO RXM 

RA => , TR= NX JAMF EAC LOADSERIALI NT 

RCM = => RA TR= NX 

RCM = => RB TR= NX JAMF 

RA XOR RCM = $8000 => RA JAMF 

RA AND RCM = $7FFF => RA JAMF 

* 

RA => RY TR= NX # JUMP ON RS16 TO XCB 

RY => RB TR= NX *G0 TO CRA 

RA MINUS RCM =1 => RA C= AOVFL JAMF 

AL "INC 1 XM RF20Q ,SETCC 

"JAMF JUMP ON EQ TO CASS 

RCM = ,C- BD01 JAMF 

RB => RM TR= NX , JUMP ON RS16 TO IAB2 

RM => RA TR= NX *60 TO CRB 

AL ,,DEC XM RF200 ,SETCC ; 
GO TO IRX+1 
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1AB: 
1AC: 



1200 1A07 
921C 1A50 



IAD: 9260 1B70 



1AE 
1AF 
1B0 
1B1 
1B2 
1B3 
1B4 
1B5 
1B6 

1B7: 
1B8: 
1B9: 



9294 1B70 
92FC 1A0C 
92FC 1A04 
924C 1A0G 
F20Q 0830 
921C 1A0C 
921C 1A0C 
721C 1A0C 
721C 1AG0 

1301 04B0 
9208 1A70 

720C 1A00 



(2012) 
(2013) 

0004 01E3 
(2014) 

0000 FFFF 
(2015) 
(2016) 

0002 0002 
(2017) 
(2018) 

0002 0002 
(2019) 

0000 0000 
(202C) 

0004 0133 
(2021) 

0001 0100 
(2022) 

0001 0100 
(2023) 

0003 FFOO 
(2024) 

0002 01FF 
(2025) 

0003 FFOO 
(2026) 

0002 01FF 
(2027) 
(2028) 

0000 0000 
(2029) 

0000 oooc 
(2030) 

0000 0000 
(2031) 
(2032) 
(2033) 
(2034) 



CAZ 

CSA 
A2A 

S2A 

CMA 
TCA 
SSM 
SCB 
CAR 
CAL 
ICL 
ICR 
STX 

ACA 

ICA 

* 
* 
* 
LOGIC 



CPU 

ALU 
CPU 

CPU 

ALU 

ALU 

ALU 

RR 

ALU 

ALU 

ALU 

ALU 

CPU 

ALU 
ALU 



RF ,,RF M RA 
,SETCC GO TO CAS5-2 

RA AND RCM = S7FFF => RA 



AL RCM NX ADD M 

RF240 AOVFL JAMF DATA 2 

AL RCM NX SUB 1 M 

RF240 AOVFL JAMF DATA 2 

NOT RA => RA JAMF 

NOT RA => RA ,60 TO AOA 

RA OR RCM = $8000 => RA JAMF 

RCM - $8000 -> RY C* BD01 

RA AND RCM = $FF00 => RA JAMF 

RA AND RCM = $OOFF => RA 

RA AND RCM = $FFOO -> RA 

RA AND RCM = $OOFF => RA 





RF200 ; 

C= RF01 JAMF 
RA 



RA 



JAMF 



RF NOP ALL 
RM280 MURITE JAMF 

INC RA ♦ CBIT => RA 

INC RA + L => RA 



JAMF 

FLIP BYTES JAMF 
FLIP BYTES JAMF 
XM o ; 



C= AOVFL JAMF 
FLIP BYTES JAMF 



LOGIC COMMON ENTRY- ALL L06ICI2E INSTRUCTIONS BEGIN HERE 
CPU BB RM NX DEC 1 M RA ; 



PAGE 0051 



C2035) 

1BA: EEF4 1607 000C 01C2 

(2036) LRL CPU 

(2037) 
18B: 5760 1A14 OOOC 0000 

(2038) rpu 
(2039) 
(2040) 
1BC: 4660 2A11 0004 91BB 

(2041) LRS CPU 
(2042) 
1BD: 4F60 1A14 OOOC OOCC 

(2043) CPU 
(2044) 
(2045) 
1BE: 4260 2A11 0004 91BD 

(2046) LRR CPU 
(2047) 
1BF: 4660 2044 COQO 0000 

(2048) CPU 
(2049) 
1C0: 4760 1A14 0000 0000 

(205C) CPU 
(2051) 
(2052) 
1C1: 4660 T«11 0004 91BF 

(2053) ARL CPU 
(2054) 
(2055) 
1C2: 5760 1A11 0004 91C2 

(2056) ARS CPU 
(2057) 
(2058) 
1C3: 4F60 1A11 0004 91C3 

(2059) ARR CPU 
(2060) 
(2061) 
1C4: 4B60 1 All 0004 91 C4 



280 ,SETCC S TRUE 16WAYS TO $1C0 

'M RA RF200 /' 



RFRS 5 ALL 6 
LINKS 



RFRS 1 NX 6 

LINKS INCRSCF ,* 

JUMP ON RSCNEM1 TO *-1 

RFRS 3 ALL 6 
LINKS 

RFRS NX 6 

LINKS INCRSCF ; 

JUMP ON RSCNEM1 TO *-1 

RFRS 1 NX 6 
LINK 

RFRS 1 ALL 6 
LINKS 

RFRS 1 NX 6 

LINKS INCRSCF ; 

JUMP ON RSCNEK1 TO *-2 

RFRS 5 ALL 6 

LINKS INCRSCF ; 

JUMP ON RSCNEM1 TO * 

RFRS 3 ALL 6 

LINKS INCRSCF ; 

JUMP ON RSCNEM1 TO * 

RFRS 2 ALL 6 

LINKS INCRSCF ; 

JUMP ON RSCNEM1 TO * 



,M RB RF200 ; 

*M RA RF200 ; 

*M RB RF200 ; 

'M RB 200 ; 

'M RA RF200 ; 

#M RB RF200 ; 

'M RA RF200 ; 

#M RA RF200 ; 

'M RA RF200 ; 



1CS: 2E70 1044 0000 0000 



1C6: 2F70 2A54 0C00 0000 



(206S) 
K7: 2fc70 1A51 0004 91C5 

(2069) EJCT 



RFLS 


3 


NX 


7 


LINK 








RFLS 


3 


ALL 


7 


RF01 








RFLS 


3 


NX 


7 


RF01 


incrscf ; 




JUMP 


ON 


RSCNEM1 


TO *-2 
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(2062) LLR CPU RFLS 3 NX 7 ,n RA 200 I 
C2063) 



(2064) CPU RFLS 3 ALL 7 ,M rb RF200 
(2065) 



(2066) CPU RFLS 3 NX 7 , N RA RF200 ; 
(2067) 
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(207C) ORG $1C8 

(2071) LLT ALU CON ZERO => RA JAMF ,* 

(2072) JUMP ON LT TO LT 
1C8: 923C 1A0C 0006 61CF 

(2073) lle alu con zero => ra jamf /* 

(2074) jump on le to lt 

1C9: 923C 1A0C 0004 71 CF 

(2075) LNE ALU CON ZERO => RA JAMF ; 

(2076) JUMP ON NE TO LT 
1CA: 923C 1A00 0004 41CF 

(2077) LEG ALU CON ZERO => RA JAMF ,* 

(2078) JUMP ON EG TO LT 
1CB: 923C 1A00 0006 41CF 

(2079) L6E ALU CON ZERO => RA JAMF ; 

(2080) JUMP ON GE TO LT 
1CC: 923C 1A00 0004 61CF 

(2081) LGT ALU CON ZERO => RA JAMF ; 

(2082) JUMP ON GT TO LT 
1CD: 923C 1A00 0006 71CF 

000716 (2063) LF EQU * 

(2084) CRA RR RCM =0 => RA TR= NX JAMF 
1CE: F20Q 1A0G 0002 010C 

(2085) LT RR RCM =1 => RA TR= NX JAMF 
1CF: F200 1A00 0002 0001 

(2086) JMP RR RY => Rp TR= NX JAMF 
1D0: EAOO 7A00 0000 0000 

(2087) LLL CPU RFLS 7 ALL 7 ,M RB RF200 ; 

(2088) RF01 
1D1: 3F70 2A54 0000 0000 

(2089) CPU RFLS 3 NX 7 ,M RA RF200 ; 

(2090) RF01 INCRSCF ; 

(2091) JUMP ON RSCNEM1 TO *-1 
102: 2E70 1A51 0004 91D1 

(2092) LLS RR RCM = G => ,C= B001 
1D3: F200 0034 0002 0100 

(2093) CPU RFLS 7 NX 3 ,M RB RF200 ; 

(2094) LINK 
104: 3E30 2A44 OOOC OOOC 
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1D5: 2F60 1A61 



1D6: 3F70 1A51 



1D7: F200 0034 



1DS: 3F70 1A61 



1D9: 2780 1A51 



(2095) 
C2096) 
(2097) 

0004 91D4 
(2098) 
(2099) 
(210C) 

0004 91D6 
(2101) 

0002 010G 
(2102) 
(2103) 
(2104) 

0004 91D8 
(2105) 
(2106) 
(2107) 

0004 91D9 
(2108) 



ALL 



ALS 



ALR 



CPU 

CPU 

RR 
CPU 

CPU 

EJCT 



RFLS 3 ALL 6 
SOVFL INCRSCF I 

JUMP ON RSCNEM1 TO *-1 

RFLS 7 ALL 7 

RF01 INCRSCF ; 

JUMP ON RSCNEM1 TO * 

RCM = => ,C= BD01 

RFLS 7 ALL 7 
SOVFL INCRSCF ; 

JUMP ON RSCNEM1 TO * 

RFLS 1 ALL 8 

RF01 INCRSCF ; 

JUMP ON RSCNEM1 TO * 



#M 



RA 



RA 



RA 



RA 



RF200 ; 



RF200 ; 



RF200 ; 



RF200 ; 
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(2109) SKP CPU BB RCM NX RF M RA ; 
<211C) RY200 ,SETCC DATA M31620 

1DA: F200 1807 0001 6790 

(2111) * 

<2112) * THE SKIP INSTRUCTION MUST READ THE CONTROL PANEL 

(2113) * SENSE SWITCHES- THIS WEANS THE I/O COMMAND MUST BE 

(2114) * FORMED IN RY AND THE SIGNALS GENERATED. THE SKIP HARD- 

(2115) * WARE WILL WORK CORRECTLY ONLY IF RA IS SELECTED FROM THE 

(2116) * REGISTER FILES, THE CONDITION CODES HAVE BEEN PRESET TO THE 

(2117) * CONTENTS OF RA, AND BD HAS THE SENSE SWITCHES ON IT. IF THE 

(2118) * ABOVE IS TRUE IN ONE CYCLE, THEN FSKIP IS DEFINED TO HAVE 

(2119) * THE CORRECT SENSE FOR TESTING ON THE NEXT CYCLE. 

(2120) * 

(2121) * 

(2122) CPU BB RCM NX ,,RY PIO 200 ; 

(2123) ,LOADRSC DATA 1 
1DB: F202 10CE 0002 0001 

(2124) CPU BB BPD NX RF RSC 280 
1DC: FA03 0604 0000 0000 

(2125) RR RA => , JAMF ; 

(2126) JUMP ON SKIP TO CAS5 
1DD: 0200 1000 0004 81E5 

(2127) LDA CPU ,,ALL,,,,,RMMRDY MREAD , ; 

(2128) JUMP ON DP TO LDA3 
1DE: 1300 0784 0005 C160 

(2129) RR RM => RA TR= NX J AM F 
1DF: EEOO 1A00 0000 0000 

(2130) CAS CPU AL KEYS ALL BB L M 13 ,* 
<2131) RMRFMRDY MREAD 

1E0: 875C B584 0000 0000 

(2132) ALU RA MINUS RM => NULL C= AOVFL SETCC 
1E1: 8E94 1077 0000 0000 

(2133) RR 13 => NULL NOP C= RF01 l 

(2134) JUMP ON FCBIT TO CAS6 
1E2: 0200 B054 0004 F1F1 

(2135) RR ,,JAMF JUMP ON LE TO CAS4 
1E3: 0200 OCOC 0004 71E4 

(2136) CAS4 ALU INC RP => RP JAMF ; 
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(2137) 
1E4: 9204 7A00 0004 41E5 

(2138) CASS ALU 
1E5: 9304 7A04 0004 00GC 

(2139) IRS CPU 
1E6: 1300 0784 0000 0000 

(214C) ALU 
1E7: 8E65 1207 0000 OOCC 

(2141) CPU 
1E8: 1300 06B0 0006 41E5 

(2142) ANA CPU 
1E9: 1300 0784 0000 OOOC 

(2143) ALU 
1EA: 8E1C 1A00 OOOC 0000 

(2144) STA CPU 
(2145) 

(2146) 
1EB: 1300 14BC 0005 C0B7 

(2147) SKS1 CPU 
1EC: 1203 8004 0004 018A 

(2148) ERA CPU 
1ED: 1300 0784 0000 OOOC 

(2149) ALU 
1EE: 8E6C 1A0C 0000 OOOC 

(2150) ADD CPU 
1EF: 1300 0784 0005 C0B9 

(2151) ALU 
1F0: 8E60 1A70 OOCC OOOC 

(2152) CAS6 RR 
1F1: 0200 0000 0006 71E4 

(2153) EVMX1 RR 
1F2: EEOO 9A04 0000 OOOC 

(2154) RR 
1F3: 0200 B204 0009 COOO 

(2155) RR 
1F4: 0200 9004 0008 042C 

(2156) CPU 
(2157) 



JUMP ON NE TO CAS5 

INC RP => RP TR= ALL NOP 60 TO F1 

"ALL**,,VRMMRDY MREAD 

INC RM => RM SETCC 

#*ALL#,,,,280 MWRITE JAMF JUMP ON EQ TO CASS 

/*ALL,#,,,RMMRDY MREAD 

RA AND RM => RA JAMF 

RF NOP ALL M RA ; 
RM280 MWRITE JAMF ; 
JUMP ON DP TO STA3 

•*NX,,,RSC STROBE 2QG *,G0 TO INA2 

*r ALL*****RMMRDY MREAD 

RA XOR RM => RA JAMF 

**ALL/-,,/,RMMRDY MREAD *JUMP ON DP TO ADD3 

RA ADD RM => RA C= AOVFL JAMF 

#,JAMF JUMP ON 6T TO CAS4 

RM => 11 TR= NX 

13 => RM TR= NX ,EAC CLEARCAM 

11 => NULL , MODAL NOP (TR I GNVKE YS , PAM) 

RF NOP NX M 11 ; 
280 NOP NOP S ON TRUE BD 
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1F5: 1200 9604 000C 0000 

(2158) DFLO CPU ,, ALL, ,,,,RMHRDY,MRE AD,, 60 TO DFLD1 
1F6: 1300 0784 0004 0500 

(2159) DFST CPU R F,, ALL,,,M,FLTH ,R *280,MWR IT E,,60 TO DFST1 
1F7: 13G0 44B4 0004 0507 

1F8: 1300 0784 000* "soS* BFA " "" " ALt •""""» ^"«"D„ GO TO DFA01 

(2161) DFSB CPU ,,ALL,,,,,RMMRDY,NREAD,,60 TO 0FSB1 
1F9: 1300 0784 0004 0516 

(2162) DFMP CPU ,,ALL,,,,,RMMRDY,MREAD,,60 TO DFMP1 
1FA: 1300 0784 0004 054B 

(2163) DFDV CPU , , ALL,, ,, ,RMMRDY,MR£ AD, ,60 TO 0FDV1 
1FB: 1300 0784 0004 0570 

(2164) DFCS CPU ,, ALL,, ,,,RMMRDY,HRE AD,, 60 TO DFCS1 
1FC: 1300 0784 0004 05B4 

(2165) CAI RR ,,,JUHP ON RXM TO RXW 
TFO: 0200 0004 0007 4068 

(2166) CPU ,,,,,RY ICAI,,,JAHF MODAL NOP TRI6NVKEYS 
1FE: 1202 8000 0008 0400 

(216?) EJCT 
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(2168) * CA-6,U-C0DE*MHJ, FEBRUARY 1975 

(2169) * FLOATING POINT PROCESSOR - PRIME COMPUTER 

(2170) * PRIME COMPUTER INC wSRC0769 .001 

(2171) * COPYRIGHT 1974, PRIME COMPUTER INCNATICK MASS. 

(2172) * 

(2173) * 

(2174) * 

(2175) * 

000C02 (2176) P300 XSET 2 

(2177) CLOCK 

(2178) RRCLK 

(2179) ALUCLK 

(2180) ORG $400 

(2181) * 

(2182) * FLOATING POINT GENERICS DECODE TO THIS GENERAL 

(2183) * AREA. FLOATING SKIPS ARE FIRST. 

(2184) * 

002000 (2185) FGEN2 EQU * 

(2186) FSEQ RR ,,JAMF JUMP ON EG TO CASS 
400: 0200 060C 0006 41E5 

(2187) FSNE RR #*JAMF JUMP ON NE TO CAS5 
401: 0200 0600 0004 41 E5 

(2188) FSMI RR ,#JAMF JUMP ON LT TO CAS5 
402: 0200 060C 0006 61E5 

(2189) FSPL RR ,,JAMF JUMP ON 6E TO CAS5 
403: 0200 0600 0004 61E5 

(2190) FSLE RR ,,JAMF JUMP ON LE TO CAS5 
404: 0200 060C 0004 71E5 

(2191) FSGT RR ,,JAMF JUMP ON 6T TO CASS 
405: 0200 060C 0006 71 E5 

(2192) FGEN1 RR RCM - $37 => 11 
406: F200 9A04 0002 0037 

(2193) ALU 11 AND RM => 11 C= BD01 TR= ALL 
407: 8F1C 9A34 0000 0000 

<2194) ALU 11 OR RCM = FGEN2 => RM TR= ALL 
408: 934C 9204 0000 090C 

(2195) CPU BB RM NX ; 

(2196) 200 
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409: EE00 0004 



40A: EEOO 4607 



40B 
40C 

40D: 
40E; 



410 
411 



413 
414 

415: 
416: 



FOOO 
8B65 

FOOO 
8B65 



060C 
1304 

060C 
1304 



92FC 

9260 



5B04 
5A27 



412: 93FC 4B04 



9204 
9260 

9208 
EEOO 



4B77 
5A24 

4B77 
5B04 



0000 0000 
(2197) 
(2198) 
(2199) 

OOOC 0000 

(2200) FAD1 

(2201) 
0000 095A 

(2202) 
0004 0419 

(2203) FSB1 

(2204) 
0000 095F 

(2205) 
0004 0419 

(2206) * 

(2207) * 

(2208) * 
(22C9) 
(2210) FCM 

0004 F4CE 

(2211) 
0002 0001 

(2212) 

(2213) 
0004 444B 

(2214) 

(2215) 
0004 044B 

(2216) FRN 
0002 008C 

(2217) 

(2218) 
0004 044B 

(2219) FL0T1 
0004 044B 

(2220) FMP1 
(2221) 



CPU BB RM NX RF M 
280 NOP SETCC ; 
S ON TRUE/ BD 

CPU BB RCM 
280 NOP PUSHBD DATA FA04 

ALU INC RY => RY TR = ALL /GO TO LOAD 

CPU BB RCM I 
280 NOP PUSHBD DATA FSB4 

ALU INC RY => RY TR = ALL /GO TO LOAD 



FLOATING COMPLEMENT INSTRUCTION 



FLTH ; 



o ; 



ORG 
ALU 

ALU 

ALU 

CPU 

ALU 
CPU 

RR 
CPU 



(FGEN2 .OR. $10) 

NOT FLTL => FLTL /JUMP ON FCBIT TO FLEX 

FLTL ADD RCM - 1 => FLTL C= COUT SETCC 

NOT FLTH => FLTH TR= ALL ; 
/JUMP ON NE TO NRML 



AL RCM 
RF240 



NX INC 
AOVFL SETCC 



1 M FLTH ; 
60 TO NRML 



FLTL ADD RCM = $80 =*> FLTL C= COUT 

AL RCM NX INC C M FLTH ; 
RF240 AOVFL SETCC GO TO NRML 

RM => FLTL /GO TO NRML 

BB RCM ; 
280 NOP PUSHBD DATA FMP4 
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417: FOOD 060c 0000 087A 

(2222) ALU INC RY => RY TR= ALL ,G0 TO LOAD 
418: 8B65 1304 0004 0419 

(2223) * 

(2224) * 

(2225) * LOAD SUBROUTINE. THIS ROUTINE ASSUMES RM CONTAINS THE 

(2226) * FIRST WORD FROM MEMORY, RY CONTAINS THE ADDRESS OF THE SECOND 

(2227) * WORD, AND THE STACK CONTAINS THE RETURN ADDRESS. THE FIRST 

(2228) * WORD IS PUT INTO 13 AS IS- THE SECOND WORD IS BROKEN INTO 

(2229) * THF REST OF THE FRACTION AND THE EXPONENT AND PLACED INTO 
(223C) * RY AND 11 FOR THE EXPONENT, AND 12 AND RM FOR THE LOW 

(2231) * ORDER PART OF THE FRACTION. 

(2232) * 

BB RM ALL M 13 ; 
RMRFMRDY MREAD 

RCM = $FF00 => 12 

RCM = SOOFF => 11 

11 AND RM => (11, RY) 

12 AND RM => 12 CLEARFUI1 
12 => RM TR= ALL ,S ON TRUE, POP 

(F6EN2 .OR. $20) 

RCM = 128*30 => VSC C* BD01 

RFLS 7 NX 7 M RB RM200 

RA => RY 

RY => FLTH , 60 TO FL0T1 

VSC MINUS RCM = 127 *> NULL SETCC C* AOVFL 









(2233) 


* 










(2234) 


LOAD 


CPU 








(2235) 






419: 


EFOO 


B584 


0000 0000 
(2236) 




RR 


41A: 


F200 


AA04 


0003 FFOQ 
(2237) 




RR 


41B: 


F2C0 


9AC4 


0002 01FF 
(2233) 




ALU 


41 C: 


8E1C 


9D04 


0000 0000 
(2239) 




ALU 


41D: 


8E1C 


AAGF 


0000 oooc 
(2240) 




RR 


41E: 


0300 


A404 


000C 0004 
(2241) 




0R6 








(2242) 


FLOT 


RR 


420: 


F200 


6A34 


0002 009E 
(2243) 




CPU 


421: 


3E70 


2204 


0000 0000 
(2244) 




RR 


422: 


0200 


1804 


0000 coco 
(2245) 




RR 


423: 


EAOO 


4B04 


0004 0416 












(2246) 


INT 


ALU 


424: 


9294 


6077 


0002 007F 
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(2247) CPU 
(2248) 
(2249) 
425: 5660 5304 0004 719E 

(2250) ALU 
426: 9394 6207 0002 009E 

(2251) CPU 
(2252) 

427: OtOO 420E 0004 F19E 

(2253) INT1 RR 
428: EEOO 1B04 0006 74CB 

(2254) CPU 
(2255) 

(2256) 
429: 8B5C 2B37 0006 64BF 

(2257) RR 
42A: 0200 0604 0004 0000 

(2258) FDV1 CPU 
(2259) 

42B: FCOO 060C OOOG 098D 

(2260) ALU 
42C: 8B65 1304 0004 0419 

(2261) NRM7 CPU 
(2262) 

420: 4660 5A04 0000 OOOG 

(2263) ALU 
42E: 867C 9304 0000 OOCO 

(2264) ALU 
42F: 8A94 6B74 0004 04CD 

(2265) ORG 

(2266) FRAC ALU 
430: 9294 6077 0002 0061 

(2267) CPU 
(2268) 

431: 5660 5304 0004 71VE 

(2269) ALU 
432: 9394 6207 0002 0080 

(2270) CPU 



RFRS 5 NX 6 
RY240 NOP NOP ; 
JUMP ON LE TO CRL 



FLTL ; 



VSC MINUS RCM = 128+30 => RM SETCC TR- ALL 

RF RM NX M FLTH ; 
RM200 _ NOP LOADRSC JUMP ON FCBIT TO CRL 

RM -> RA ,JUMP ON GT TO FLEX9 

AL RY ALL BB L M RB ; 
RF240 BD01 SETCC ; 
JUMP ON LT TO INT2 



#^G0 TO F1 

Bb RCM 
280 NOP PUSHBD DATA FDV4 



o ; 



INC RY => RY ,G0 TO LOAD TR- ALL 

M FLTL ; 



RFRS 1 
RF200 



NX 6 
NOP NOP 



11 7 RSC + L => RY 

VSC MINUS RY => VSC C= AOVFL #60 TO FLEX8 

(FGEN2 .OR. $30) 

VSC MINUS RCM = 128-31 => NULL SETCC C= AOVFL 



RFRS 5 NX 6 M 
RY240 ,,JUMP ON LE TO CRL 



FLTL ; 



VSC MINUS RCM = 128 => RM SETCC TR= ALL 

AL RM NX SUB 1 XM DISABLE ; 
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C2271) RM280 NOP LOADRSC ; 

(2272) GO TO FRAC1 
433: 8E95 UOE 0004 C4B2 

(2273) * 

(2274) * DOUBLE PRECISION FLOATING POINT COMPLEMENT 

(2275) * 

(2276) DFCM ALU NOT FLTL -> FLTL #JUMP ON FCBIT TO DFLEX 
434: 92FC 5B04 0004 F5C8 

(2277) ALU NOT RB => RB 
435: 92FC 2A04 0000 OOGC 

(2278) ALU INC RB => RB C= COUT SETCC 
436: 9204 2A27 0000 0000 

(2279) ALU NOT FLTH => FLTH , JUMP ON NE TO DNRML 
437: 92FC 4B04 0004 453A 

(2280) ALU INC FLTL + C => FLTL C= COUT 
438: 9208 5A24 0000 OOOC 

(2281) ALU INC FLTH + C => FLTH C= AOVFL ; 

(2282) SETCC GO TO DNRML 
439: 9208 4B77 0004 053A 

(2283) * 

(2284) * 

(2285) * ADJUST SUBROUTINE. THIS SUBROUTINE TAKES THE TyO NUMBERS 

(2286) * FOUND IN THE FLOATING ACCUMULATOR AND THE RESULTS OF THE LOAD 

(2287) * SUBROUTINE AND MAKES THE EXPONENTS THE SAME SO THEY CAN BE ADDED 

(2288) * OR SUBTRACTED. THE TyO NUMBERS ARE LEFT IN THE FLOATING 

(2289) * ACCUMULATOR AND IN 12, 13, AND RM FOR THE LOW ORDER HALF. 

(2290) * THE VSC CONTAINS THE FINAL ADJUSTED EXPONENT. 

(2291) * 

(2292) * 

(2293) ADJUST ALU VSC SUB RY => RY ,JUMP ON FCBIT TO ADJ9 
43A: 8A94 6304 0004 F443 

(2294) RR RY => NULL LOADRSC S ON EQ , POP 
43B: EAOO 060E OOOE 4004 

(2295) RR RCM = 32 => YSAVE 
43C: F200 CA04 0002 0020 

(2296) CPU AL RY NX SUB 1 XM DISABLE I 

(2297) RY240 NOP NOP ; 

(2298) JUMP ON LE TO ADJ8 
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43D: 8A95 1304 0004 7444 

(2299) * 

(2300) * ABOVE BRANCH IS TAKEN IF THE ACCUMULATOR MUST BE RIGHT SHIFTED. 
(23C1) * 

(2302) * NOW TEST THE SHIFT COUNTER AGAINST 31 TO SEE IF 

(2303) * THE TWO NUMBERS ARE WITHIN RANGE, AND IF SO LOAD RSC AND 

(2304) * UNN0RMALI2E THE NEW ARGUMENT. 

(2305) * 

(2306) * 

(2307) ALU YSAVE ADD RY => NULL SETCC ; 

(2308) C= AOVFL 
43E: 8A60 C077 0000 0000 

(2309) RR RY -> NULL LOADRSC 
43F: EAOO OOOE 0000 0000 

(2310) CPU RFRS 3 ALL 6 M 13 ; 

(2311) RF240 LINK NOP ; 

(2312) JUMP ON LE TO NRML 
440: 4F60 BB44 0004 744R 

(2313) CPU RFRS 1 NX 6 M 12 ; 

(2314) RF240 NOP INCRSC I 

(2315) JUMP ON RSCNEM1 TO *-1 
441: 4660 AB05 0004 9440 

(2316) RR 12 => RM ,S ON TRUE, POP 
442: 0200 A404 OOOC 0004 

(2317) * 

(2318) * NEW ARGUMENT IS GREATER OR EQUAL TO ACC- 

(2319) * 

(2320) * 

(2321) ADJ9 ALU ZERO MINUS RY => RY /-GO TO MOVE 
443: 8A95 1304 0004 0449 

(2322) ADJ8 ALU INC 13 ♦ => NULL SETCC 
444: 9200 B007 0000 OOOC 

(2323) ALU YSAVE SUB RY => NULL SETCC ; 

(2324) S ON EQ POP 
445: 8A94 C607 OOOE 4004 

(2325) CPU RFRS 3 ALL 6 M FLTH ; 

(2326) RF240 LINK NOP ; 

(2327) JUMP ON LE TO MOVE 
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446: 4F60 4B44 



447 
448: 

449: 

44A: 



44B 
44C 
44D 



4660 
8A60 

F23C 

923C 



2F70 
923C 

F2C0 



5B05 
6B04 

5A04 

4B04 



4364 
0334 
9AQE 



44E: 3F70 5B44 



0004 7449 
(2328 
(2329 
(2330 

0004 9446 
(2331 

000C 0004 
(2332 
(2333 

0002 0100 
(2334 
(2335 

0004 0448 
(2336 
(2337 
(2338 
(2339 
(2340 
(2341 
(2342 
(2343 
(2344 
(2345 
(2346 
(2347 
(2348 
(2349 
(2350 
(2351 

QQ04 F452 
(2352 

0004 FOOD 
(2353 

0003 FEEO 
(2354 
(2355 

0004 F42D 
(2356) 



MOVE 



* 
* 
* 
* 
* 
* 

* 

* 
* 

NRML 



AC 
VS 
BE 
IS 
IF 
BE 
IF 
TH 
TH 



CPU RFRS 1 NX 6 M FLTL ; 

RF240 NOP INCRSC ; 
JUMP ON RSCNEM1 TO *-1 

ALU VSC ADD RY => VSC ,S ON TRUE, POP 

CPU BB RCH NX ZERO L M FLTL ; 
RF200 ,,DATA 

CPU AL NOP NX ZERO L M FLTH ; 
RF240 ,,G0 TO MOVE-1 



NORMALIZE SUBROUTINE. THIS ROUTINE TAKES THE FLOATING 
CUMULATOR AND NORMALIZES THE RESULTS, ADJUSTING THE 
C AS NEEDED. THE ROUTINE EXPECTS THE CARRY BIT TO 

SET IF THE ACCUMULATOR IS ALREADY OVER SHIFTED. THAT 
, THE VALUE MUST BE RIGHT SHIFTED ONE PLACE. 

THE CBIT CAN BE SET, THEN THE CONDITION CODE MUST ALSO 

SET TO REFLECT THE VALUE OF THE FACCUM. 

OVERFLOW OCCURRED, THE CONDITION CODE WILL IN FACT SHOW 
E REVERSE OF THE CORRECT SIGN. NRML DEPENDS ON THIS. 
E ROUTINE THEN EXITS TO THE FETCH CYCLE. 



CPU 



RFLS 3 
RY240 



ALL 
SOVFL 



7 
,JUMP ON 



M 
FCBIT 



FLTH ; 

TO NRM10 



ALU 

RR 
NRM18 CPU 

CPU 



CON => RY C= BD01 ,JUMP ON FCBIT TO F1 



RCM = -32 => 11 LOADRSC 



RFLS 7 
RF240 

RFLS 3 



ALL 
LINK 

NX 



7 

,JUMP 




ON 



M 
FCBIT 



TO 



FLTL ; 
NRM7 

FLTH ; 



PACE 0065 



44F: 
450 

451 
452: 

453: 
454: 



2E70 

F200 

2F70 
9260 

5760 
924C 



4B05 
6A3C 

4364 
6A74 

4B44 
4A04 



455: 4760 5B0C 



456r 8A65 1304 



457: 
458: 
459: 



F300 
8E1C 
8E1C 



5584 
5A04 
6A0G 



45A: F000 060C 



(2357) 
(2358) 

0004 9451 
(2359) 

0002 01 OC 
(2360) 
(2361) 

0004 044E 
(2362) 

0002 0001 
(2363) 
(2364) 
(2365) 

0006 6455 
(2366) 

0001 0100 
(2367) 
(2368) 
(2369) 

0004 F4CE 
(2370) 
(2371) 
(2372) 
(2373) 
(2374) 
(2375) 
(2376) 

0000 oooc 

(2377) 
(2378) 

0003 FF00 
(2379) 

0000 oooc 
(2380) 

0000 0000 
(2381) 
(2382) 

0000 095C 



RR 
NRMT7 CPU 

NRM10 ALU 
CPU 

ALU 
CPU 



RF240 MOP INCRSC ; 
JUMP ON RSCNEM1 TO NRM17 

RCM s o => VSC C= B001 JAMF 

RFLS 3 ALL 7 M FLTH ; 
RY240 SOVFL *60 TO NRM18 

VSC PLUS RCM = 1 => VSC C= AOVFL 

RFRS 5 ALL 6 M FLTH ; 
RF240 LINK NOP ; 
JUMP ON LT TO **2 

FLTH OR RCM = f8C00 => FLTH 

RFRS 1 ALL 6 M FLTL ; 
RF24C NOP JAMF ; 
JUMP ON FCBIT TO FLEX 



EXECUTION OF THE FL0AT1N6 POINT MEMORY REFERENCE 



* 

* 

* INSTRUCTIONS 

FL01 ALU 



FAD4 



INC RY => RY 

CPU BB RCM ALL 

RMRFMRDY MREAO sDATA $FF00 

ALU FLTL ANO RM => FLTL 

ALU VSC AND RM => VSC JAMF 

CPU BB RCM 

280 NOP PUSHBD DATA FAD6 



FLTL ; 
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(2383) 




ALU 


45B: 


8A94 


6677 


0004 043A 












(23*4) 


FAD6 


ALU 


45C: 


8E60 


5A24 


OOOC 0000 
(2385) 




RR 


45D: 


0200 


8204 


0000 0000 
(2386) 
(2387) 




ALU 


45E: 


8E68 


4B77 


0004 C44B 












(2388) 


FSB4 


CPU 








(2389) 






45F: 


F000 


060C 


0000 0861 
(2390) 




ALU 


460: 


8A94 


6677 


0004 043A 












(2391) 


FSB6 


ALU 


461: 


8E94 


5A24 


0000 OOOC 
(2392) 




RR 


462: 


0200 


B204 


0000 0000 
(2393) 
(2394) 




ALU 


463: 


8E98 


4B77 


0004 044B 












(2395) 


FST1 


ALU 


464: 


931C 


60B7 


0003 FFQO 
(2396) 




ALU 


465: 


8A65 


1304 


0000 0000 
(2397) 




ALU 


466: 


921C 


6234 


0002 01 FF 
(2398) 




RR 


467: 


tEQO 


9A04 


0000 0000 
(2399) 




ALU 


468: 


921C 


5204 


0003 FFOO 
(2400) 
(2401) 




ALU 


469: 


8F4C 


94B0 


0004 44CF 
(2402) 
(2403) 
(2404) 


* 
* 
* 










(24C5) 


F0V13 CPU 



VSC MINUS RY -> NULL SETCC C= AOVFL GO TO ADJUST 

FLTL ADD RM => FLTL C= COUT 

13 => RM 

FLTH ADD RM ♦ C => FLTH C= AOVFL SETCC ; 
GO TO NRML 



BB RCM 
280 NOP PUSHBD DATA FSB6 



; 



VSC MINUS RY => NULL SETCC C= AOVFL 60 TO ADJUST 

FLTL SUB RM => FLTL C= COUT 

13 => RM 

FLTH SUB RM ♦ C => FLTH C= AOVFL SETCC ; 
GO TO NRML 

VSC AND RCM = SFFOO => NULL SETCC C= MWR1TE TR = ALL 

INC RY => RY 

VSC AND RCM = $OOFF => RM C* BD01 

RM => 11 

FLTL AND RCM = SFFOO => RM 

11 OR RM => RM C= MWRITE TR= ALL ; 
JAMF JUMP ON NE TO FLEX1 

BB SELECT CHANGED FROM RM TO RY SO IT WORKS 
AL RY NX DEC M VSC ; 
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46A: 8AF0 6B74 



46B: 8A65 1304 



46C: 
46D 



EF5C 
8E1C 



6587 
9304 



46E: 9200 4607 



46F; 
470; 
471: 
472: 

473: 
474: 



8B94 
8E7C 

0200 
0200 

8E94 
0300 



6677 
9B04 
0B04 
B4H4 

4007 
9404 



475: 8E94 5627 



476: 0200 0604 



C2406) 

0004 0410 
(2407> 
(2408) 
(2409) 
(2410) 
(2411) 

0006 6477 
(2412) 
(2413) 
(2414) 

0000 0000 
(2415) 

0006 64C8 
(2416) 
(2417) 
(2418) 

0006 4479 
(2419) 
(2420) 

0006 4478 
(2421) 

0004 F478 
(2422) 

0006 7000 
(2423) 

0004 4478 
(2424) 
(2425) 

0000 0000 
(2426) 

0006 7000 
(2427) 
(2428) 

0006 6478 
(2429) 
(2430) 

0006 41E5 



RF240 



AOVFL #60 TO FCN 



* FLOATING COMPARE- THIS INSTRUCTION MUST COMPARE: FIRST* 

* SIGN* THEN EXPONENT/- FINALLY UPPER THEN LOWER MAGNITUDE. 



FCS1 



ALU 



INC RV => RY #JUMP ON LT TO FCS2 



* SIGNS ARE EQUAL 

CPU BB RM ALL BB L 
RMRFNRDY MREAD SETCC 



13 ; 



ALU 



11 AND RM -> RY #JUMP ON LT TO FCS3 



* EXPONENT TEST IS BACKNARDS FOR NEG #»S. 

* TEST FOR ZERO IN EITHER ARGUMENT. 

ALU INC FLTH + => NULL SETCC JUMP ON EQ TO FCS7 

ALU VSC MINUS RY => NULL SETCC C= AOVFL ; 
TR= ALL JUMP ON EQ TO FCS2+1 

FCS4 ALU 11 7 RM => 11 ,JUMP ON FCBIT TO FCS2+1 

RR RX => RX # JUMP ON GT TO F1 

FCS5 RR 13 => RM NOP JUMP ON NE TO FCS2+1 

* EXPONENTS EQUAL 

ALU FLTH MINUS RM => NULL SETCC 

RR 11 => RM NOP TR= ALL JUMP ON GT TO F1 

ALU FLTL MINUS RM => NULL C* COUT SETCC ; 
JUMP ON LT TO FCS2+1 



* HIGH ORDER MAGNITUDES ARE EQUAL 

RR ,,,JUMP ON EQ TO CAS5 
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477: 
478: 
479; 



0200 
9260 
0200 



0804 
7A0C 
0B0C 



47A; 
47B: 
47C; 
47D 

47E: 

47F: 

480: 



9294 
8A60 
0200 
0200 



9304 
6A74 
4204 
5304 



933C 
6000 
4060 AA44 



4AQE 
AA04 



481: CE60 4B04 



C2431) 

0004 FOOO 
(2432) 

0002 0002 
(2433) 

0006 41E5 
(2434) 
(2435) 
(2436) 
(2437) 
(243£) 
(2439) 
(2440) 
(2441) 
(2442) 
(2443) 

0002 0080 
(2444) 

0000 0000 
(2445) 

0000 0000 
(2446) 

0004 F4CE 
(2447) 
(2448) 

0003 FFF9 
(2449) 
(2450) 

0000 0000 
(2451) 
(2452) 

0000 0000 
(2453) 
(2454) 
(2455) 

0008 COOO 
(2456) 
(2457) 



FCS2 



RR 



ALU 



RR 



RX *> RX # JUMP ON FCBIT TO F1 



RP PLUS RCM = 2 => RP JAMF 



RX *> RX JAMF JUMP ON EQ TO CAS 5 



FCS7 

* 

* FLOATING POINT MULTIPLY. THE ALGORITHM USED IS BASICALLY THAT 

* OF SHIFT AND ADD- ONLY 24 ITTERATIONS ARE REQUIRED FO* FULL 

* ACCURACY. IN ADDITION, THE FIRST 7 ITTERATIONS ARE SINGLE 

* PRECISION ONLY. THE REMAINING 16 ARE FULL DOUBLE 

* PRECISION. 



* 
FMP4 



ALU 

ALU 

RR 

RR 

CPU 

CPU 

CPU 



11 MINUS RCM = 128 => RY 

VSC PLUS RY => VSC C= AOVFL 

FLTH => RM 

FLTL -> RY , JUMP ON FCBIT TO FLEX 

FLTH ; 



AL RCM ALL ZERO L M 
RF200 NOP LOADRSC DATA -7 



ALFB 
RF200 



NONE RF 



RFRS NONE 6 
RF200 LINK 



STD MPY FOR FIRST 7 BITS. (SORT OF) 

CPU ALRS RM NX ADD I 

RF240 NOP #EAC MPYLOGIC 

CPU RFRS ALL 6 I 

RF240 LINKS INCRSC ; 



12 ; 
12 ; 

FLTH ; 

12 ; 



PA6E 0069 



(2458) JUMP ON RSCNEM1 TO *-1 
482: 4360 AB15 0004 9481 

(2459) * CBIT = RF16 = LAST BIT FROM 12 (NEW LOW) 

(2460) CPU AL RCM ALL ZERO L M FLTL ; 

(2461) RF200 NOP LOAORSC ; 

(2462) DATA -16 
483: 933C 5A0E 0003 FFFC 

(2463) * SET UP FOR FULL DOUBLE PRECISION MULTIPY FOR THE 

(2464) * REMAINING PORTION OF THE LOOP. (16 TIMES ♦ SUB) 

(2465) * 

(2466) RR ,,, JUMP ON FCBIT TO FMP5 
484: 0200 0604 0004 F487 

(2467) * SHIFT ONLY 

(2468) CPU RFRS 3 ALL 6 M FLTH ; 

(2469) RF240 LINK NOP 60 TO FMP7 
485: 4F60 4B44 0004 0489 

(24?0) FKP6 CPU RFRS 5 ALL 6 M 13 ; 

(2471) RF280 NOP NOP I 

(2472) JUMP ON N0TRF16 TO *-1 
486: 5760 BC04 0007 7485 

(2473) FMP5 ALU FLTL PLUS RY => FLTL C= COUT 
487: 8A60 5A24 0000 0000 

(2474) CPU ALRS RM ALL 6 C M FLTH ; 

(2475) RF240 LINK NOP 
488: CF68 4B44 0000 0000 

(2476) FMP7 CPU RFRS 1 ALL 6 M FLTL ; 

(2477) RF24C NOP INCRSC ; 

(2478) JUMP ON RSCNEM1 TO FMP6 
489: 4760 5B05 0004 9486 

(2479) *TEST FOR LAST MOVE — ZERO CBIT 

(2480) CPU RF NOP NX M 13 I 

(2481) RF280 BD01 NOP i 

(2482) JUMP ON N0TRF16 TO NRML 
48A: 1200 BC34 0007 744e 

(2483) * FINAL SUBTRACT 

(2484) ALU FLTL MINUS RY => FLTL C* COUT 
48B: 8A94 5A24 0000 0000 

(2485) ALU FLTH MINUS RM ♦ C => FLTH C- AOVFL ; 
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48C: 8E98 4B77 



48D 
48E; 

48 F: 
490: 
491; 
492: 

493: 
494: 



9200 B207 
8E6C 4607 



F200 
9294 
8A94 
0200 

8E61 
0200 



0G0E 
9304 
6B74 
0004 

1607 
A304 



(2486> 

0004 044B 
(2487 
(24*8 
(2489 
(2490 
(2491 
(2492 
(2493 
(2494 
(2495 
(2496 
(2497 

OOCC 0000 
(2498 
(2499 

0G06 44D1 
(25C0 
(2501 
(2502 

0003 FEEF 
(2503 
(2504 

0002 0181 
(2505 
(2506 

0004 6493 
(2507 
(2508 

OOOA 8000 
(2509 
(2510 
(2511 

0004 F4CE 
(2512 

0004 6498 
(2513 
(2514 



SETCC 60 TO NRML 

* 
* 

* DIVIDE INSTRUCTION. ROUTINE EXECUTES A NON-PREFORMING 

* STYLE DIVIDE. BEFORE STARTING THE LOOP*- THE NUMBERS ARE 

* BOTH MADE POSITIVE. THERE ARE 31 ITTERATIONS OF THE 

* DIVIDE LOOP BUT ONLY 17 OF THEM ARE IN FACT FULL DOUBLE 

* PRECISION, THE REST BEING SINGLE PRECISION. 

* 
FDV4 



ALU INC 13 ♦ *> RM SETCC 

ALU FLTH XOR RM => NULL SETCC ; 
JUMP ON EQ TO FLEX2 



* DIVISION BY ZERO OVERFLOW EXIT. 

* NOW MOVE EXPONENT TO RY 

RR RCM = -17 => NULL LOADRSC 

* DO EXPONENT CALCULATION 

ALU 11 MINUS RCM = 129 => RY 

ALU VSC MINUS RY => VSC C* AOVFL ; 
JUMP ON GE TO **2 

* SET FUII AS A "COMPLEMENT RESULTS - FLA6 

RR ,,,EAC SETFUII 

* SKIP ON LIKE SI6NS, SET UP FOR RM COMP TEST. 

ALU INC RM ♦ => NULL SETCC ; 
JUMP ON FCBIT TO FLEX 



RR 



12 => RY , JUMP ON GE TO FDV5 



* MUST TWO»S COMPLEMENT RMCRV . 

ALU ZERO MINUS RY => NULL C= COUT 
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495: 8A95 1024 0000 0000 

(2515) ALU ZERO MINUS RM ♦ C => RM SETCC 
496: 8E99 1207 0000 000G 

(2516) ALU ZERO MINUS RY => RY ,JUMP ON LT TO F0V13 
497: 8A95 1304 0006 646A 

illUl * !?2 V £ £ XlT lS F0R -<i/2)**n— complement the accumulator 

(2518) * and exit 

(2519) * test acc for neg 

(25?0) f0v5 alu inc flth + => null setcc 

498: 9200 4U07 0000 0000 

(2521) ALU CON => 12 , JUMP ON GE TO F0V6 
499: 923C AB04 0004 64AA 

(2522) * COMPLEMENT ACC 

(2523) ALU NOT FLTL => FLTL 
49A: 92FC 5A04 OOOC 0000 

(2524) ALU INC FLTL => FLTL SETCC 

49B: 9204 5A07 0000 OOOC 

(2525) ALU NOT FLTH => FLTH , JUMP ON NE TO F0V6 
49C: 92FC 4804 U004 44AA 

(2526) ALU INC FLTH => FLTH SETCC 

49D: 9204 4A07 0000 0000 

(2527) RR RX => RX * JUMP ON 6E TO FDV6 
49E: 0200 0604 0004 64AA 

(2528) ALU VSC PLUS RCM = 1 => VSC C= AOVFL 
49F: 9260 6A74 0002 0001 

(2529) CPU RFRS 5 ALL 6 M FLTH ,* 

(2530) RF240 ,#JUMP ON FCBIT TO FLEX 

4A0: 5760 4B04 0004 F4CE 

(2531) RR RX => RX / 60 TO F0V6 

4A1: 0200 0804 0004 04AA 

(2532) * FINNALLY DOUBLE PRECISION DIVIDE LOOP CAN BE EXECUTED. 

(2533) * 

(2534) * TEST FOR SUB OR SHIFT AND SHIFT IN 

(2535) * A QUOTIENT BIT FROM THE LAST ITTERATION. 

(2536) * 

(2537) FDV10 CPU RFLS 3 NX 3 M 13 ; 

(2538) RF240 NOP INCRSC ; 

(2539) JUMP ON LT TO FDV7 
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4A2: 2E30 BB05 0006 64A5 

(2540) * IF SHIFT, GO TO SHIFT. THEN, TEST LOW ORDER HALF. 

(2541) * ABORT LOW TEST IF HIGH TEST WAS CONCLUSIVE. 

(2542) ALU FLTL MINUS RY => NULL , ', 

, , „ (2543) C= COUT JUMP ON GT TO FDV6 

4A3: 8A94 5624 0006 74A7 

(2544) * LOW TEST REQUIRED - SHIFT ON LT 

(2545) RR ,,,JUMP ON FCBIT TO FDV8 
4A4: 0200 06G4 0004 F4A? 

(2546) * SHIFT STEP PROCESSING ~ NO SUBTRACT 

(2547) * 

(2548) F0V7 CPU RFLS 7 NX 7 M FLTL I 

(2549) RF200 LINK NOP 
4A5: 3E70 5A44 OOOC OOOC 

<255C) CPU RFLS 3 ALL 7 M FLTH ; 

(2551) RF240 LINK NOP GO TO FDV6 
4A6: 2F70 4844 0004 04AA 

(2552) * PERFORM SUBTRACT AND SHIFT 

(2553) FDV8 ALU FLTL MINUS RY => FLTL C= COUT 
4A7: 8A94 5A24 0000 OOOC 

(2554) CPU RFLS 7 ALL 7 M FLTL ,* 

(2555) RF200 LINK NOP 
4A8: 3F70 5A44 0000 0000 

<2556) CPU ALLS RM ALL SUB C M FLTH ; 

(2557) RF240 LINK 
4A9: AF98 4B44 0000 0000 

(2558) FDV6 ALU FLTH MINUS RM => NULL SETCC ; 

(2559) JUMP ON RSCNEM1 TO FDV10 
4AA: 8E94 4607 0004 94A2 

(256C) CPU RFLS 3 NX 3 M FLTL I 

(2561) RF200 
4AB: 2E30 5A04 0000 0000 

(2562) *DOUBLE PRECISION HALF FINISHED. NOW DO SINGLE PREC IS IONPART 

(2563) FDV11 RR RCM * -15 => NULL LOADRSC 
4AC: F2Q0 OOOE 0003 FEF1 

( 2564) CPU AL RCM NX AND L M 13 ; 

( 2565) RY24Q NOP SETCC DATA S7FFF 
4AD: 921C B307 OOOC FFFF 
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4AE: AF94 4C44 



4AF: 

ABO: 

481: 

4B2: 
483: 
484: 

4B5: 
4B6: 



2F70 5B45 

EAOO 

2F70 



4B34 
4364 



EBOO 
0200 
EAOO 

9 394 

EEOO 



2A34 
4304 
1A04 

6007 
060E 



4B7: 3F3G 2A44 



4B8: 
4B9: 



2E30 
926C 



1B05 
1007 



4BA: 9200 2607 



(2566) 
(2567) 

0009 0000 
(2568) 
(2569) 
(2570) 

0004 94AE 
(2571) 
(2572) 

0005 5410 
(2573) 
(2574) 

0004 044C 
(2575) 
(2576) 

0000 oocc 
(2577) 

0004 74PC 
(2578) 

oooc oocc 

(2579) 
(2580) 

0002 019F 
(2581) 

0006 719E 
(2582) 
(2583) 

OOOC 0000 
(25F4) 
(2585) 
(2586) 

0004 94B7 
(2587) 

0001 0100 
(2588) 
(2589) 

OOOA 400C 
(2590) 



CPU 



CPU 



ALLS RM ALL SUB 1 M 
RF280 LINK #EAC DIVL06IC 



FLTH ; 



RFLS 3 ALL 7 M FLTL I 
RF240 LINK INCRSC I 
JUMP ON RSCNEM1 TO *-1 

♦RESULTS OF DIVIDE NOW IN RY AND FLTL 

RY => FLTH C= BD01 # JUMP ON FUII TO FCH 



RR 
CPU 



* PATCH SPACE 
FRAC1 RR 

RR 

RR 

ALU 

RR 

CPU 

CPU 

FRAC2 ALU 
ALU 

RR 



RFLS 3 ALL 7 M 
RY240 SOVFL ,60 TO NRML+1 



FLTH ; 



RY => RB TR= ALL C= BD01 

FLTH => RY ,JUMP ON LE TO FRAC3 

RY => RA 

VSC MINUS RCM = 128*31 => NULL ; 
SETCC TR= ALL 

RM => NULL LOADRSC JUMP ON GT TO CRL 

3 M RB 



RFLS 7 
RF200 



ALL 
LINK 



RFLS 3 NX 3 M 
RF240 NOP INCRSC ; 
JUMP ON RSCNEM1 TO *-1 

RA XOR RCM = S8000 => NULL SETCC 

INC RB ♦ -> NULL SETCC ; 
JUMP ON NE TO F1 

RX *> RX JAMF JUMP ON EQ TO CRA 



RA 
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46B: 0200 0B0C 0006 41CE 

C2591) FRAC3 CPU 

(2592) 

<2593) 
ABC: EB3C 1B07 0006 44B9 

(2594) CPU 

(2595) 
4B0: 4F60 1A44 0000 0000 

(2596) CPU 

(259?) 

(2598) 
4BE: 4260 2B01 0004 948D 

(2599) INT2 CPU 

(2600) 
4BF: 4F60 1B44 0004 F4C7 

(2601) CPU 

(2602) 

(2603) 
4C0: 4260 2B15 0004 94BF 

(2604) ALU 
4C1: 923C 0634 0004 F4C6 

(2605) INT5 RR 
4C2: 0200 060C 0006 64C3 

(2606) ALU 
4C3: 9260 2A74 0002 0001 

(2607) ALU 
4C4: 9208 1A04 0000 0000 

(2608) ALU 
4C5: 921C 2A30 0000 FFFF 

(2609) INT4 ALU 
4C6: 9200 1607 0004 04C2 

(2610) INT6 ALU 
4C7: 9200 1607 0004 04C0 

(2611) FCS3 ALU 
4C8: 8A94 6077 0000 0000 

(2612) ALU 
4C9: 8E7C 9B04 0004 FOOO 

(2613) RR 



BB RY ALL ZERO L 
RF240 NOP SETCC ; 
JUMP ON EQ TO FRAC2 



RFRS 3 
RF200 



ALL 6 
LINK 



RA 



RA 



RB 



RFRS NX 6 
RF240 NOP INCRSCF ; 
JUMP ON RSCNEM1 TO *-1 



RFRS 3 ALL 6 M ra 
RF240 LINK #JUMP ON FCBIT TO 1NT6 



RFRS NX 6 
RF240 LINKS INCRSC ; 
JUMP ON RSCNEM1 TO *-1 



RB 



CON ZERO => NULL C= BD01 ,JUMP ON FCBIT TO INT4 

**JAMF JUMP ON LT TO *♦! 

RB PLUS RCM =1 => RB C= AOVFL 

INC RA + C => RA 

RB AND RCM = S7FFF => RB C= B001 JAMF 

INC RA ♦ => NULL SETCC 60 TO INT5 

INC RA ♦ => NULL SETCC 60 TO INT2+1 

VSC MINUS RY => NULL C= AOVFL SETCC 

11 7 RM => 11 , JUMP ON FCBIT TO F1 

RX => RX JAMF JUMP ON 6E TO FCS5 



PA6E 0075 

4CA: 0200 0B00 0004 6472 

(2614) * FLOATING POINT EXCEPTION VECTOR. ENTRY POINTS ARE* 

(2615) * FLEX OVERFLOW 

(2616) * FLEXl STORE EXCEPTION 

(2617) * FLEX2 DIVIDE BY ZERO 

(2618) * FLEX9 INT EXCEPTION 

(2619) * 

(2620) * RE6ISTER 11 IS USED TO SHOW THE TYPE OF EXCEPTION- 

(2621) * S100 OVERFLOW 

(2622) * $101 DIVIDE BY ZERO 

lltlll ! MSI ST ° RE EXCEPTI0N REGISTER 12 - EFFECTIVE ADDRESS 

(2624) * $103 INT EXCEPTION 

(2625) * 

(2626) * IF 74 IS ZERO, THE VECTOR ABORTS, EXECUTING THE NEXT 

(2627) * SEQUENTIAL INSTRUCTION WITH THE CBIT SET- 

(2628) * . THE ABSOLUTE NAPPED VECTOR HANDLING 

(2629) * IS IDENTICAL TO THAT OF THE UII. 

(2630) * 

(2631) * 

(2632) FLEX9 RR RCM = $FFFC C= BD01 TR= ALL *> 11 
4CB: F300 9A34 0003 FFFC 11 

(2633) RR ,,,G0 TO FLEX4 
4CC: G200 C604 0004 04D2 

(2634) FLEX8 RR ,,JAMF JUMP ON FCBIT TO FLEX 
4CD: 0200 0600 0004 F4CE 

,„ r „., n (2635) FLEX ALU CON MINUS1 => 11 C = BD01 , GO TO FLEX4 

4CE: 92CC 9BJ4 0004 04D2 M-t*«» 

(2636) FLEX1 RR RCM = $FFFD => 11 C= BD01 
4CF: J2G0 9A34 0003 FEFD 

<263?) RR ry => 12 , GO TO FLEX4 

4D0: EAOO AB04 0004 04D2 

(2638) FLEX2 RR RCM = $FFFE => 11 C= BD01 

401: F200 9A34 0003 FEFE 

(2639) FLLX4 ALU 11 XOR RCM = $FEFF => 11 
4D2: 926C 9A04 0001 FDFF 

(2640) FLEX5 RR RCM = «74 => RY 
4D3: F200 0804 0002 013C 

<2641) CPU AL NOP ALL DEC ON EAS ,* 
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o ; 



RP 



AD,: 93F0 A 5C < OOOaTo" R " RMRDY **"" '" C CL * NV "* S TRISNVKEYS 

<2643) CPU AL RM NX BB 

<2644) RY240 NOP SETCC 

405: 8fc5C 0307 OOOC OOOC 

<2645) CPU AL RY NX INC 
<2646) RM280 NOP JAMF ; 

<2647) JUWP ON NE TO JST1 

406: 8AG0 7400 Q004 4150 

(2648) * 

(2649) * DOUBLE PRECISION EXECUTION SPACE. FOR EASE OF DEBUS, 

(2650) * EXECUTION BEGINS AT $500. 

(2651) * 

(2652) ORG $500 

(2653) DFLD1 ALU INC RY => RY 
500: 8A65 1304 OOOC 0000 

(2654) CPU BB RM ALL 

( 2655) RMRFMRDY NREAD 
501: EFOO 4584 0000 0000 

(2656) 
502: 8A65 1304 0000 OOOC 

(2657) 

(2658) 
503: EFOO 5584 0000 0000 

(2659) 
504: 8A65 1304 0000 OOOC 

(266G) 

(2661) 
505: EFOO 2584 COOO OOCC 

(2662) 
506: EEOO 6B04 0004 0000 

(2663) DFST1 ALU INC RY => RY 

507: 8A65 1304 COOO OOOC 

r nn (2664) CPU RF,,ALL",M,FLTL#RM280#«WRITE 

508: 1300 54B4 0000 0000 

(2665) ALU INC RY => RY 
509: 8A65 1304 0000 0000 

( 2666) CPU RF„,ALL,,,M#RB,RM280*MWRITE 



ALU 


INC RY => 


RY 




CPU 


BB RN 


ALL 







RMRFMRDY 


MREAD 




ALU 


INC RY => 


RY 




CPU 


BB Rff 


ALL 







RMRFMRDY 


MREAD 




RR 


RM => VSC 


60 


TO F1 



FLTH ; 



FLTL ; 



RB 
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50A: 1300 24B4 0000 000C 

(2667) ALU 
5GB: 8A65 1304 0000 0000 

(2668) CPU 
50C: 1300 64B0 0000 0000 

(2669) DFAD1 CPU 
(2670) 

50D: FOOO 060C 0002 OBOF 

(2671) ALU 
50E: 8A65 1304 0004 051 F 

(2672) DFAD4 CPU 
(2673) 

50F: FOOO 060C 0002 0B11 

(2674) ALU 

(2675) 
51G: 8E94 6477 00C4 0524 

(2676) DFAD6 ALU 
511: 8A60 2A24 0000 0000 

(2677) RR 
512: 0200 A204 0000 OOOC 

(2678) ALU 
513: 8F68 5A24 0000 0000 

(2679) RR 
514: 0200 B204 0000 OOCC 

(2680) ALU 
(2681) 

515: 8E68 4B77 00C4 053A 

(2682) DFSB1 CPU 

(2683) 
516: FOOO 060C 0002 0B18 

(2684) ALU 
517: 8A65 1304 0004 051 F 

(2685) DFSB4 CPU 
(2686) 

518: FOOO 060C 0002 0A1A 

(2687) ALU 

(2688) 
519: 8E94 6477 0004 0524 



INC RY => RY 

RF,,ALL,,,M#VSORM28C*MWRITE,JAMF 

BB RCM NONE ; 
280 ,PUSHBD DATA DFAD4 

INC RY => RY ,60 TO D6ET 

BB RCM NONE ; 
280 ,PUSHBD DATA DFAD6 

VSC MINUS RM => RM SETCC C= AOVFL ; 
GO TO DFIX 

RB PLUS RY => RB C= COUT 

12 => RM 

FLTL PLUS RM + C => FLTL C= COUT TR= ALL 

13 => RM 

FLTH PLUS RM 4 C => FLTH C* AOVFL ; 
SETCC 60 TO DNRML 

BB RCM NONE ; 
280 /-PUSHBD DATA DFSB4 

INC RY => RY ,G0 TO DGET 

BB RCM NONE ; 
280 , PUSHBD DATA DFSB6 

VSC MINUS RM => RM C= AOVFL I 
SETCC 60 TO DFIX 
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(2689) DFSB6 ALU RB MINUS RY -> RB C= COUT TR = ALL 
51a: 8B94 2a24 0000 0000 

(269C) RR 12 -> RM 
51B: 0200 A204 0000 0000 

(2691) ALU FLTL MINUS RM ♦ C => FLTL C= COUT TR= ALL 
51C: 8F98 5A24 0000 000G 

(2692) RR 13 => RM 
51D: 0200 B204 OOOO 0000 

(2693) ALU FLTH MINUS RM ♦ C => FLTH C = AOVFL ; 

(2694) SETCC 60 TO DNRML 
51E: 8E98 4B77 0004 053A 

(2695) * 

(2696) * 

(2697) * SUBROUTINE DLOAD. ROUTINE LOAI>S THE FULL 4 WORD 

(2698) * FLOATING POINT ARGUMENT INTO 13#T2*1t#AND RM, RESPECTIVLY. 

(2699) * THE SUBROUTINE EXPECTS THE FIRST WORD TO BE IN RM. RY IS 

(2700) * ASSUMED TO CONTAIN A POINTER TO THE SECOND WORD IN MEMORY. 

(2701) * NOTE THAT THE EXPONENT IS LEFT IN RM. 
C27C2) * 

(2703) * 

(2704) D6ET CPU BB RM ALL Q M 13 ; 
(2705> RMRFMRDY MREAD 

51 F: EFOO B584 OOQC OOOG 

^706) ALU INC RY => RY 

520: 8A65 1304 0000 0000 

(2707) CPU BB RM ALL M 12 ; 

(2708) RMRFMRDY MREAD 
521: EFOO A584 0000 0000 

(2709) ALU INC RY => RY 
522: 8A65 1304 0000 0000 

(2710) CPU BB RM ALL M 11 ; 

(2711) RMRFMRDY MREAD ,S ON TRUE, POP 
523: EFOO 9584 OOOC 0004 

(2712) * 

(2713) * 

(2714) * ADJUST SUBROUTINE. CALLED DFIX, THIS ROUTINE ADJUSTS TWO 

(2715) * NUMBERS OF UNEQUAL EXPONENTS BY •UN-NORMALIZING' THE 

(2716) * NUMBER WITH SMALLER EXPONENT. IF THE TWO NUMBERS ARE TOO 
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(2717) * FAR APART, AND THE NEW ARGUMENT IS SMALLER, THE ROUTINE 

(271*5) * ABORTS, RETURNING TO THE FETCH CYCLE. IF THE OLD ARGUMENT 

(2719) * IS THE SMALLER, THEN IT IS ZEROED, AND THE EXPONENT (VSC) 

(2720) * IS MADE EQUAL TO THAT OF THE NEW ARGUMENT. 

(2721) * 

(2722) * IF THE TWO NUMBERS CAN BE COMBINED, VSC IS SET TO THE 

(2723) * LARGER EXPONENT, AND THE SMALLER NUMBER IS SHIFTED RIGHT. 

(2724) * 

(2725) * RY IS ALWAYS LOADED WITH THE LSW QF THE NEW ARGUMENT. 

(2726) * 

(2727) DFIX ALU ZERO MINUS RM => RM LOADRSC TR= ALL ; 

(2728) JUMP ON FCB1T TO DFIX1 
524: 8F95 140E 0004 F52F 

(2729) RR 11 => RY TR= ALL ,S ON EG TO POP 
525: 0300 9304 OOOE 4004 

(2730) RR RCM = 48 => YSAVE 
526: F200 CA04 0002 0130 

(2731) DFIX3 ALU INC 13 ♦ => NULL SETCC ; 

(2732) JUMP ON LT TO DFIX2 
527: 9200 B607 0006 6532 

(2733) * NEW ARGUMENT IS SMALLER, SHIFT IT RIGHT OR ABORT. 

(2734) * 

(2735) ALU INC FLTH ♦ => NULL SETCC 
528: 9200 4007 0000 0000 

(2736) ALU YSAVE PLUS RM => NULL SETCC TR= ALL ; 

(2737) JUMP ON EQ TO DFIX4-1 
529: 8F60 C607 0006 4536 

(2738) ALU ZERO PLUS RM => NULL C= AOVFL ,* 

(2739) LOADRSC JUMP ON LE TO DNRML 
52A: 8E61 167E 0004 753A 

(2740) * 

(2741) * DE-NORMALIZE CAN BE DONE. 

(2742) * 

(2743) CPU RFRS 3 ALL 6 M 13 ,* 

(2744) RF200 LINK 
52B: 4F60 BA44 0000 0000 

(2745) CPU RFRS 1 NX 6 M 12 ; 

(2746) RF200 LINK 
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52C: 4660 AA44 



520 
52E: 



4660 
0200 



9B05 
9304 



52F 

530; 

531: 



F200 
8E94 
0200 



CA04 
C007 
9304 



532: 8194 C607 



533: 4F60 4B44 



0000 0000 
(2747 
(2748 
(2749 

0004 9526 
(2750 

000C 0004 
(2751 
(2752 
(2753 
(2754 
(2755 
(2756 
(2757 
(2758 
(2759 

0001 0100 
(2760 

OOOQ 0000 
(2761 

0004 0527 
(2762 
(2763 
(2764 
(2765 
(2766 
(2767 
(2768 
(2769 
(2770 
(2771 

OOCE 4004 
(2772 
(2773 
(2774 

0004 7537 
(2775 
(2776 



CPU 



RR 



RFRS 1 
RF240 
JUMP ON 



NX 
NOP 
RSCNEM1 



6 

INCRSC 
TO *-2 



11 ; 



11 => RY * S ON TRUE* POP 



IF EXPONENT OVERFLOW IS DETECTED MERE* ONE OF THE 

TyO NUMBERS WILL BE PRESERVED UNCHANGED BECAUSE THE 

EXPONENTS ARE TOO FAR APART FOR AN ADD OR SUBTRACT. 

THEREFORE* FORCE THE SIGN THE RIGHT WAY AND ALSO FORCE 

THE MAXIMUN EXPONENT DIFFERENCE ALLOWED TO BE ZERO 

TO ALLOW THE REST OF THE ADJUST ROUTINE TO ACT CORRECTLY 



DFIXT RR 



RCN = $8000 => YSAVE 



* 
* 

* 

* 
DFIX2 



TES 
FAC 
IN 
VSC 



ALU YSAVE MINUS RM => NULL SETCC 
RR 11 => RY * GO TO DFIX3 



T FOR VALID ALIGN. IF VALID* UN-NORMALIZE THE 
C. IF NOT VALID* ZERO THE FACC AND RETURN. 
BOTH CASES, ADD THE EXPONENT DIFFERENCE TO THE 



ALU 



CPU 



CPU 



YSAVE MINUS RM -> NULL SETCC TR= ALL * 
S ON EQ* POP 



RFRS 3 ALL 6 
RF240 LINK NOP 
JUMP ON LE TO DFIX4 



RFRS 1 
RF200 



NX 
LINK 



FLTH ; 



FLTL ; 
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534: 4660 5A44 000C 



535: 
536: 

537: 

538: 
539: 



4660 
8E60 

923C 
923C 
923C 



2B05 
6B04 

4A04 
5A04 
2B04 



0004 
OOOC 

0000 
0000 
0004 



53A: 
53B: 



F200 
2F70 



OOOE 
4364 



0003 
0004 



0000 
(2777) 
(2778) 
(2779) 

9533 

(278C) 

0004 
(2781) 
(2782) 
(2783) 

OOOC 
(2784) 

0000 
(2785) 

0536 
(2786) 
(2787) 
(2788) 
(2789) 
(2790) 
(2791) 
(2792) 
(2793) 
(2794) 
(2795) 
(2796) 
(2797) 
(2798) 
(2799) 
(2800) 
(2801) 
(2802) 

FEDO 
(2803) 
(2804) 

F540 
(2805) 
(2806) 



CPU 



ALU 



RFRS 1 NX 6 M 
RF240 NOP INCRSC ; 
JUMP ON RSCNEM1 TO *-2 

VSc PLUS RM => VSC ,S ON TRUE, POP 



RB 



* ZERO OUT THE FACC 

* 

DFIX4 ALU CON => FLTH 



ALU 



ALU 



CON => FLTL 

CON => RB , 60 TO DFIX4-1 



* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
DNRML 



NORMALIZE SUBROUTINE. THIS DOUBLE PRECSION NORMALIZE 
ROUTINE OPERATES EXACTLY AS THE SINGLE PRECISION ROUTINE 
DOES. IF THE CBIT IS SET COMMING INTO THE ROUTINE, THE 
VALUE IS TAKEN TO BE OVERSHIFTED, AND THE NUMBER IS 
RIGHT SHIFTED ONE PLACE. THE SIGN BIT IS RECONSTRUCTED 
FROM THE CONDITION CODE AT ENTRY. THE CODE IS ASSUMED 
TO BE THE OPPOSITE SIGN OF THE PROPPER NUMBER. 

IF THE NUMBER IS ALREADY NORMALIZED, A RETURN TO FETCH IS 
DONE. OTHERWISE, THE FACC IS SHIFTED LEFT UNTIL 
THE NUMBER IS NORMALIZED, THE EXPONENT IS REDUCED 
APPROPRIATELY, AND A RETURN TO FETCH IS DONE. 



RR 



CPU 



CPU 



RCM = -48 => NULL LOADRSC 

RFLS 3 ALL 7 M FLTH i 
RY240 SOVFL , JUMP ON FCBIT TO DNRM1 

RFLS 7 NX 7 M RB I 
RF240 LINK , JUMP ON FCBIT TO DNRM2 
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53C: 3E70 2B44 0004 F545 

(2807) CPU 

(2808) 
53D: 2F70 5A44 0000 00C0 

(2809) CPU 

(2810) 

(2811) 
53E: 2E30 4B05 0004 953B 

(2812) ALU 
53F: 923C 6B34 0004 0000 

(2813) DNRM1 ALU 
540: 9260 6A74 0002 0001 

(2814) CPU 
(2815) 

(2816) 
541: 5760 4B44 0006 6543 

(2817) ALU 
542: 924C 4A04 0001 0100 

(2818) CPU 
(2819) 

543: 4760 5A44 0000 OOOC 

(2820) CPU 

(2821) 

(2822) 
544: 4660 2B00 0004 F5C8 

(2823) DNRM2 RR 
545: F200 9A04 0003 FFCO 

(2824) CPU 
(2825) 

546: 4760 2A04 OOOC 0000 

(2826) ALU 
547: 864C 9A04 0000 OOOC 

(2827) ALU 
548: 9260 9304 0002 0130 

(2828) ALU 
549: 8A94 6A74 0000 OOOC 

(2829) RR 
54A: 0200 0600 0004 F5C8 



RFLS 3 ALL 7 
RF200 LINK 

RFLS 3 NX 3 

RF240 NOP INCRSC ; 

JUMP ON RSCNEM1 TO *-3 



M FLTL ; 



FLTH ; 



CON => VSC C= BDC1 ,G0 TO F1 

VSC-PLUS RCM = 1 => VSC C= AOVFL 

RFRS 5 ALL 6 M FLTH ; 
RF240 LINK NOP ,* 
JUMP ON LT TO *+2 

FLTH OR RCM = $8000 => FLTH 

RFRS 1 ALL 6 M FLTL ; 
RF200 LINK 

RFRS 1 NX 6 M RB ; 
RF24Q NOP JAMF ; 
JUMP ON FCBIT TO DFLEX 

RCM = $FFCO => 11 

RFRS 1 ALL 6 M RB I 
RF200 NOP NOP 

11 OR RSC => 11 

11 PLUS RCM = 48 => RY 

VSC MINUS RY => VSC C- AOVFL 

"JAMF JUMP ON FCBIT TO DFLEX 
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(2830) * 

(2831) * 

(2832) * DOUBLE PRECISION FLOATING POINT MULTIPLY. TECHNIQUE USED IS 

(2833) * A SIMPLE EXTENSION OF THE SINGLE PRECISION MULTIPLY. 

(2834) * THE EXPONENT IS UPDATED FIRST, THEN 16 BITS OF SINGLE 

(2835) * PRECISION MULTIPLY' THEn 16 BITS OF DOUBLE PRECISION, 

(2836) * AND FINALLY 15 BITS OF TRIPPLE PRECISION SHIFT AND/OR 

(2837) * MULTIPLY. FINALLY, A TRIPLE PRECISION SUBTRACT 

(2838) * IS DONE/ IF NECESSARY/ FOLLOWED BY NORMALIZE AS NEEDED 

(2839) * 

(2840) * 

(2841) DFMP1 CPU BB RCM NONE ; 

(2842) 280 NOP PUSHBD DATA DFMP4 
54B: FOOO 060C 0002 0B4D 

(2843) ALU INC RY => RY / GO TO DGET 
54C: 8A65 1304 0004 C51F 

(2844) * 

(2845) * FIRST/ FIX THE EXPONENT 

(2846) * 

(2847) DFMP4 ALU VSC MINUS RCM = 128 => VSC C- AOVFL 
54D: 9294 6A74 0002 0080 

(2848) ALU VSC PLUS RM => VSC C= AOVFL / ,* 

(2849) JUMP ON FCBIT TO DFM1 
54E: 8E60 6B74 0004 F55C 

(2850) DFM2 RR FLTL => RY / JUMP ON FCBIT TO DFLEX 
54F: 0200 5304 0004 F5C8 

(2851) RR FLTH => RM 
550: 0200 4204 0000 0000 

(2852) CPU AL RCM ALL ZERO L M FLTH ; 

(2853) RF200 /LOADRSC DATA -16 
551: 933C 4A0E 0003 FFFO 

(2854) CPU RFRS 5 NX 6 M 11 ; 

(2855) RF200 LINK 
552: 5660 9A44 0000 0000 

(2856) CPU ALRS RM NX ADD M FLTH ; 

(2857) RF240 NOP / EAC MPYL06IC 
553: CE60 4B04 0008 COOO 

(2858) CPU RFRS 5 ALL 6 M 11 ; 
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(2859) RF240 LINKS INCRSC ; 

(2860) JUMP ON RSCNEM1 TO *-1 
554: 5760 9615 0004 9553 

(2861) * 

(2862) * SINGLE PRECISION PART DONE, DO DOUBLE PRECISION. 

(2863) * 

(2864) CPU AL RCM ALL ZERO L M FLTL ; 

(2865) RF200 NOP LOADRSC DATA -16 
555: 933C 5A0E 0003 FFFO 

(2866) CPU RFRS 5 NX 6 M 12 ; 
(286?) RF280 LINKS NOP ; 

(286b) JUMP ON N0TRF16 TO DFM3 

556: 5660 AC14 0007 7556 

(2869) ALU FLTL PLUS RY => FLTL C= COUT 
557: 8A60 5A24 0000 0000 

(2870) CPU ALRS RM ALL ADD C M FLTH ,* 

(2871) RF240 LINK 
558: CF68 4E44 0000 OOCG 

(2872) DFM5 CPU RFRS 1 NX 6 M FLTL ; 

(2873) RF240 NOP INCRSC ; 

(2874) JUMP ON RSCNEM1 TO *-3 
559: 4660 5605 0004 9556 

(2875) RR RY => 11 , 60 TO DFM4 
55A: EAOO 9B04 0004 055E 

(2876) * 

(2877) * SHIFT PORTION OF DOUBLE PRECISION PART 

(2878) * 

(2879) DFM3 CPU RFRS 3 ALL 6 M FLTH ; 

(2880) RF240 LINK NOP GO TO DFM5 
55B: 4F60 4644 0004 0559 

(2881) * 

(2882) * EXPONENT OVERFLOW TESTS 

(2883) * 

(2884) DFM1 ALU CON => NULL C= BD01 JUMP ON FCBIT TO DFM2 
55C: 923C 0634 0004 F54F 

(2885) RR ,,,GQ TO DFLEX 
55D: 0200 0604 0004 05C8 

(2886) * 
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(2887) * FINALLY DO TRIPLE PRECISION MULTIPLY 
(28S8) * 

(2889) DFM4 RR RCM = -15 => NULL LOAORSC 
55E: F200 OOOE 0003 FEF1 

(2890) DFM7 CPU RFRS 5 NX 6 M 13 ; 

(2891) RF280 LINKS NOP i 

(2892) JUMP ON N0TRF16 TO DFM8 
55F: 5660 BC14 0007 756F 

(2893) RR RB => RY 
560: 0200 2804 0000 OOOC 

(2894) ALU 12 PLUS RY => 12 C= COUT 
561: 8A60 AA24 OOOC 0000 

(2895) RR 11 => RY 
562: 0200 9804 0000 0000 

(2896) ALU FLTL PLUS Ry + C => FLTL C= COUT 
563: 8A68 5A24 0000 0000 

(2897) CPU ALRS RM ALL ADD C M FLTH i 

(2898) RF240 LINK 
564: CF68 4B44 0000 0000 

(2899) DFM6 CPU RFRS 1 ALL 6 M FLTL ; 

(2900) RF200 LINK 
565: 4760 5A44 0000 OOOC 

(2901) CPU RFRS 1 NX 6 M 12 ; 

(2902) RF240 NOP INCRSC ; 

(2903) JUMP ON RSCNEM1 TO DFM7 
566: 4660 AB05 0004 955F 

(2904) * 

(2905) * NOW DO FINAL SUBTRACT 

(2906) * 

(2907) CPU RF NOP ALL M 13 ; 

(2908) RF280 BD01 NOP ; 

(2909) JUMP ON N0TRF16 TO DFM9 
567: 1300 BC34 0007 7560 

(2910) RR RB => RY 
568: 0200 2804 0000 0000 

(2911) ALU 12 MINUS RY => 12 C= COUT 
569: 8A94 AA24 0000 0000 

(2912) RR 11 -> RY 
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56*: 0200 9804 000C 0000 

C2913) ALU FLTL MINUS RY ♦ C => FLTL C= COUT 
56B: 8A98 5A24 0000 0000 

(2914) ALU FLTH MINUS RM ♦ C => FLTH C= AOVFL SETCC 

56C: 8E98 4A77 0000 0000 

(2915> DFM9 RR 12 => RM 
S6D: 0200 A204 0000 0000 

<2916) RR RM => RB , 60 TO DNRML 

56E: EEOO 2B04 0004 053A 

(2917) * 

(2918) * SHIFT PART OF TRIPLE PRECISION MPY LOOP. 

(2919) * 

(2920) DFM8 CPU RFRS 3 ALL 6 M FLTH i 

(2921) RF240 LINK NOP 60 TO DFM6 
56F: 4F60 4B44 0004 0565 

(2922) * 

(2923) * 

(2924) * DIVIDE — DOUBLE PRECISION FL0ATIN6 POINT 

(2925) * 

(2926) DFDV1 CPU BB RCM ; 

(2927) 280 NOP PUSHBD DATA DDV4 
570: FOOO 060C 0002 0AC7 

(2928) ALU INC RY => RY *60 TO D6ET 
571: 8A65 1304 0004 051F 

(2929) * DIVIDE BY ZERO TEST 

(2930) DDV30 ALU FLTH XOR RY => NULL SETCC ; 

(2931) JUMP ON EQ TO DFLEX1 
572: 8A6C 4607 0006 45CA 

(2932) ALU VSC PLUS RCM = 129 => VSC C= AOVFL ; 

(2933) CLEARFUII 
573: 9260 6A7F 0002 0181 

(2934) RR RX => RX NOP JUMP ON 6E TO **2 
574: 0200 0B04 0004 6576 

(2935) * SET FUI1 FOR NE6ATIVE RESULTS 

(2936) RR ,,#EAC SETFUII 
575: 0200 0004 OOOA 800C 

(2937) * EXPONENT CALCULATION 

(2938) ALU VSC MINUS RM => VSC ,C= AOVFL TR* ALL ; 
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(2939) JUMP ON FCBIT TO DDV5 

576: 8F94 6B74 0004 F5A5 

(294C) * EXPONENTS DONE EXCEPT FOR OVERFLOW 

(2941) * TEST NOW TO SEE IF EITHER OF THE TWO ARGUMENTS 

(2942) * IS NEGATIVE. IF IT IS, THEN COMPLEMENT IT 

(2943) * 

(2944) DDV6 ALU INC 13 + => RM SETCC ; 

(2945) JUMP ON FCBIT TO DFLEX 
577: 9200 B407 0004 F5C8 

(2946) ALU INC FLTH + => NULL SETCC ,* 

(2947) JUMP ON 6E TO DDV7 
578: 9200 4607 0004 657D 

(2948) * COMPLEMENT NEW ARGUMENT 

(2949) * 

(295C) ALU NOT 11 => 11 
579: 92FC 9A04 OOOC OOOC 

(2951) ALU NOT 13 => RM 
57A: 92FC B204 0000 0000 

(2952) ALU INC 11 => 11 C= COUT 
57B: 92C4 9A24 0000 0000 

(2953) ALU NOT 12 => 12 , TR= ALL ; 

(2954) JUMP ON FCBIT TO DDV8 
57C: 93FC AB04 0004 F5A7 

(2955) * NOW TEST NEW ARGUMENT 

(2956) * 

(2957) 0DV7 RR 12 *> RY ,JUMP ON GE TO 0DV11 TR= ALL 
57D: 0300 A304 0004 6582 

(2958) * COMPLEMEMT ACCUMULATOR 

(2959) * 

(2960) ALU NOT RB -> RB 
57E: 92FC 2AC4 OOCO OOOC 

(2961) ALU NOT FLTL => FLTL 
57F: 92FC 5A04 0000 0000 

(2962) ALU INC RB => RB C= COUT TR= ALL 
580: 9304 2A24 0000 0000 

(2963) ALU NOT FLTH => FLTH , JUMP ON FCBIT TO DDV10 
581: 92FC 4B04 0004 F5AB 

(2964) * NOW SET UP AND EXECUTE 16 ITTERATIONS OF 
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(2965) * THE TRIPPLE PRECISION DIVIDE LOOP. 

(2966) * 

(2967) DDV11 ALU FLTH MINUS RM => NULL SETCC TR= ALL 
582: 8F94 4007 0000 0000 

(2968) RR RCM = -17 => NULL LOADRSC 
583: F200 OOOE 0003 FEEF 

(2969) * RM=NH/RY,12=NM/11=NL/13=P0SITIVE 

(2970) * 

(2971) * 

(2972) * COMPARE PART OF NON-PERFORMING DIVIDE 

(2973) * 

(2974) D0V15 CPU RFLS 3 ALL 3 M 13 ; 

(2975) RF240 NOP INCRSC ; 

(2976) JUMP ON LT TO DDV13 
584: 2F30 BB05 0006 6561 

(2977) ALU FLTL MINUS RY => NULL SETCC 7 

(2978) C= COUT JUMP ON GT TO DDV14 
585: 8A94 5627 0006 75C6 

(2979) RR 11 => ry , JUMP ON FCBIT TO **2 
586: 0200 9304 0004 F588 

(2980) RR 12 => RY , GO TO DDV13 
587: 0200 A304 0004 0561 

(2981) ALU RB MINUS RY => NULL C= COUT , I 

(2982) JUMP ON NE TO DDV12 
588: 8A94 2624 0004 458B 

(2983) RR RX => RX * JUMP ON FCBIT TO DDV12 
589: 0200 0B04 0004 F58B 

(2984) RR 12 -> RY , 60 TO DDV13 
58A: 0200 A304 0004 05B1 

(2985) *END OF DIVIDE TEST. 

(2986) * 

(2987) * SUBTR ACT — SHIFT 

(2988) • 

(2989) DDV12 ALU RB MINUS RY => RB C= COUT 
58B: 8A94 2A24 0000 0000 

(2990) CPU RF NOP ALL ZERO L M 12 ; 

(2991) RY200 NOP SETCC 
58C: 133C A807 0000 OOOC 
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(2992) ALU FLTL MINUS RY ♦ C => FLTL C= COUT 
58D: 8A98 5A24 0000 0000 

(2993) CPU RfLS 7 ALL 7 M RB ; 

(2994) RF200 LINK 
58E: 3F70 2A44 0000 0000 

(2995) CPU RFLS 3 NX 7 M FLTL ; 

(2996) RF200 LINK 
58F: 2E70 5A44 0000 0000 

(2997) CPU ALLS RM ALL SUB C M FLTH ,* 

(2998) RF24C LINK 
590: AF98 4B44 0000 0000 

(2999) * 

(300C) * START OF NEXT ITTERATION 

(3001) * 

(3002) DDV9 ALU FLTH MINUS RM => NULL SETCC ; 
C30C3) JUMP ON RSCNEM1 TO 0DV15 

591: 8F94 4607 0004 95fc4 

(3004) * DOUBLE PERECISION DIVIDE. SIMILAR TO THAT IN FDV. 

(3005) * 

(3006) * ON ENTRY: RM=NH,R Y=NM, 1 3=HIGH ANSWER, LINK=16TH QUOTIENT BIT 

(3007) * 

(3008) RR RCM = -17 => NULL LOADRSC 
592: F200 OOOE 0003 FFEF 

(3009) * 

(301C) * HIGH ORDER CONDITION CODE ALREADY TESTED UPON ENTRY 

(3011) * 

(3012) DDV23 CPU RFLS 3 NX 7 M 12 ,* 

(3013) RF240 NOP INCRSC ; 

(3014) JUMP ON LT TO DDV21 
593: 2E70 AB05 0006 6596 

(3015) ALU FLTL MINUS RY => NULL C= COUT ; 

(3016) JUMP ON GT TO DDV24 
594: 8A94 5624 0006 7598 

(3017) RR RX => RX JUMP ON FCBIT TO DDV24 
595: 0200 0B04 0004 F598 

(3018) * DOUBLE WORD SHIFT 

(3019) DDV21 CPU RFLS 7 NX 7 M FLTL ; 

(3020) RF200 LINK 
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RFLS 7 


ALL 


RF2G0 


LINK 


ALLS RM 


ALL 


RF240 


LINK 



596: 3E70 5A44 0000 000C 

(3021) CPU RFLS 3 ALL 7 DM FLTH ; 

(3022) RF240 LINK NOP ; 

(3023) 60 TO DDV20 
597: ?F70 4B44 0004 059B 

(3024) DDV24 ALU FLTL MINUS RY => FLTL C- COUT 
598: 8A94 5A24 0000 OOCC 

(3025) CPU RFLS 7 ALL 7 M FLTL ; 
(3026) 

599: 3F70 5A44 0000 0000 

(3027) CPU ALLS RM ALL SUB C M FLTH 

(3028) 
59A: AF98 4B44 0000 OOOC 

(3029) 0DV20 ALU FLTH MINUS RM => NULL SETCC ; 

(3030) JUMP ON RSCNEM1 TO 0DV23 
59B: 8E94 4607 0004 9593 

(3031) * 

(3032) * FINISHED DOUBLE PART. NOW DO SINGLE PART. 

(3033) * 

(3034) * 

(3035) * LINK CONTAINS 32ND QUOTIENT BIT. RM=NH ,13=0 1 ,1 2=Q2 

(3036) * BUILD Q3 IN RB. PUT 13 IN RY, INITIALIZE AND DIVIDE FLTH/RM 

(3037) * 

M RB ; 



RB 



59C: 


133C 


2A0E 


(3038) 
(3039) 
(3040) 
0003 FEF1 


CPU 


RF RCM 
RF200 
DATA -15 


ALL 
NOP 


ZERO L 
LOADRSC 


59D: 


2E70 


2A44 


(3041) 
(3042) 

0000 0000 


CPU 


RFLS 3 
RF200 


NX 
LINK 


7 


59E: 


931C 


B3Q7 


(3043) 
(3044) 
0000 FFFF 


CPU 


AL RCM 
RY240 


ALL 
NOP 


AND L 
SETCC DA 








(3045) * 

(3046) * 
(3047) 


SINGLE PRECISION DIVIDE LOOP 
CPU ALLS RM ALL 


SUB 1 



(3048) RF280 LINK ,EAC DIVLOGIC 

59F: AF94 4C44 0009 0000 



13 



FLTH ; 
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5A0: 2E70 2B45 



(3049) CPU 
(305C) 
(3051) 
0004 959f 

(3052) * DONE WITH DIVIDE 

(3053) * 

(3054) * RESULTS IN RY,12#RB 

(3055) * 



RFLS 3 NX 7 
RF240 LINK INCRSC ; 
JUMP ON RSCNEM1 TO *-1 



RB 



5A1: 


EAOO 


4A34 


5A2: 


0300 


A404 


5A3: 


EEOO 


5604 


5A4: 


8EAC 


5604 



(3056) RR 
0000 0000 

(3057) RR 
0005 55A4 

(3058) RR 
0004 053A 

(3059) ALU 
0004 0435 

(3060) * 

(3061) * ASSORTED DIVIDE NON-STRAIGHT LINE CODE 

(3062) * 



RY => FLTH C= BD01 

12 => RM TR= ALL ,JUMP ON FUII TO * + 2 

RM => FLTL *60 TO DNRML 

NOT RM => FLTL *G0 TO DFCM+1 



ALU 



5A5 
5A6: 
5A7: 
5A8: 



9 2 3C 

02C0 
9208 
8E69 



0634 
0604 
A; ^ 
1207 



5A9: 9200 4607 



5AA: 92F0 6E74 



RR 
ALU 
ALU 
ALU 

CPU 



CON => NULL C= BD01 , i 
JUMP ON FCBIT TO DDV6 

,,,&0 TO DFLEX 

INC 12 ♦ C -> 12 C= COUT 

INC RM + C => RM SETCC 

INC FLTH ♦ => NULL SETCC ; 
JUMP ON GE TO DDV7 

AL RCM NX DEC M 
RF240 AOVFL * 60 TO DFCM 



(3063) DDV5 

(3064) 
0004 F577 

(3065) 
0004 05C8 

(3066) DDV8 
0000 0000 

(3067) 
0000 0000 

(3068) 

(3069) 
0004 657D 

(3070) 

(3071) 
0004 0434 

(3072) * 

(3073) * FINISH COMPLEMENT 

(3074) * 

(3075) DDV10 ALU INC FLTL + C => FLTL C= COUT 



VSC 
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5AB: 92C8 5a24 0000 0000 

(3076) 

5AC: 9208 4A07 0000 0000 

(3077) 
(3078) 

SAD: 8F94 4607 0004 6583 

(3079) 

5AE: 9260 6A74 0002 0001 

(308C) 
(3081) 
(3082) 

5AF: 5760 4B04 0004 F5C8 

(3083) 

5B0: 8E94 4607 0004 0583 

(3084) * 

(3085) * 

(3086) * 

(3087) DDV13 
(308b) 

0000 0000 
<30f9> 
(309C) 

0000 OOCC 
(3091) 
(3092) 
(3093) 

0004 0591 

(3094) * 

(3095) * 

(3096) * 
(3097) 

(3098) DFCS1 
(3099) 

5B4: EE6C 4037 0000 OOCO 

(31C0) 

5B5: 8A65 1304 0006 6477 

(3101) 
(3102) 



ALU 



ALU 



ALU 



CPU 



ALU 



INC FLTH ♦ C => FLTH SETCC 

FLTH MINUS RM => NULL SETCC TR= ALL ; 
JUMP ON GE D0V11+1 

VSC PLUS RCM = 1 => VSC C= AOVFL 



RFRS 5 ALL 6 M 
RF24G NOP NOP ; 
JUMP ON FCBIT TO DFLEX 



FLTH ; 



FLTH MINUS RM => NULL SETCC 60 TO DDV11+1 



SHIFT STEP — TRIPPLE SUBTRACT 



5B1: 3F70 2A44 



5b2: 2E70 5A44 



5B3: 2F70 4B44 



CPU 



CPU 



CPU 



RFLS 7 
RF200 

RFLS 3 
RF200 

RFLS 3 

RF240 

60 TO DDV9 



ALL 7 
LINK 

NX 7 
LINK 

ALL 7 

LINK NOP ; 



RB ; 



FLTL ; 



FLTH ; 



DOUBLE PRECISION COMPARE 



ORG 
CPU 



ALU 



CPU 



$5B4 

BB RM NX XOR 

200 BD01 SETCC 



M 



FLTH ; 



INC RY => RY , JUMP ON LT TO FCS2 

BB RM ALL BB L M 13 ; 
RMRFMRDY MREAD SETCC 
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586: EF5C B587 0000 0000 

(3103) RR RY => 12 
5B7: EA00 AAQ4 0000 OOCO 

(3104) ALU 12 PLUS RCM =2 = > RY 
5B8: 9260 A304 0002 0002 

(3105) * FOR NEG REVERSE EXPONENT TEST 

(3106) CPU BB RM ALL M 11 ; 

(3107) RMRFMRDY MREAD NOP ; 

(3108) JUMP ON LT TO CS1 
5B9: EFOO 9584 0006 65C3 

(3109) * 

(3110) * EXPONENT TEST 

(3111) * 

(3112) ALU INC FLTH ♦ *> NULL SETCC JUMP ON EQ TO FCS7 
5BA: 9200 4607 0006 4479 

(3113) ALU VSC MINUS RM => RM SETCC ; 

(3114) C= AOVFL JUMP ON EQ TO FCS2+1 
5BB: 8E94 6477 0006 4478 

(3115) * IF OVERFLOW - REVERSE TEST 

(3116) RR 13 => RM , JUMP ON FCB1T TO CS3 
5BC: 0200 B404 0004 F5C5 

(3117) * 

(3118) ALU INC 12 => RY • JUMP ON 6T TO F1 
5B0: 9204 A304 0006 7000 

(3119) * 

(3120) * EXPONENTS EQUAL 

(3121) * 

(3122) CS4 ALU FLTH MINUS RM => NULL SETCC ; 

(3123) JUMP ON NE TO FCS2+1 
5BE: 8E94 4607 0004 4478 

(3124) RR 11 => RM , JUMP ON GT TO F1 
5BF: 0200 9404 0006 7000 

(3125) ALU FLTL MINUS RM => NULL SETCC TR* ALL C= COUT ; 
(3t26) JUMP ON LT TO FCS2+1 

5C0: 8F94 5627 0006 6478 

(3127) * 

(3128) * HIGH ORDER PART EQUAL — TEST MIDDLE 

(3129) * 
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<313C) CPU ##ALL,*,#,RMMRDY MREAD NOP JUMP ON NE TO FCS2 

5C1: 1300 0784 0004 4477 

(3131) ALU RB MINUS RM -> NULL C= COUT SETCC 60 TO FCS2-1 
5C2: 8E94 2627 0004 0476 

(3132) * NEGATIVE EXPONENTS, REVERSE TEST 

(3133) CS1 ALU VSC MINUS RM => NULL SETCC C= AOVFL 
5C3: 8E94 6077 0000 0000 

(3134) * IF OVERFLOW, DO NOT REVERSE TEST. 

(3135) RR 13 => RM , JUMP ON FCBIT TO CAS4-1 
5C4: 0200 B404 0004 F1E3 

(3136) * REVERSE TEST 

(3137) CS3 ALU INC 12 *> RY JAMF JUMP ON GE TO CS4 
5C5: 9204 A300 0004 65BE 

(3138) * PATCH SPACE 

(3139) DDV14 RR 11 => RY , 60 TO D0V12 
5C6: 0200 9304 0004 058B 

(3140) DDV4 ALU INC 13 ♦ => RY SETCC GO TO D0V30 
5C7: 9200 B307 0004 0572 

(3141) * 

(3142) * DOUBLE PRECISION FLOATING EXCEPTION 

(3143) * 

(3144) DFLEX RR RCM = $200 => 11 
5C8: F200 9A04 0000 050G 

(3145) ALU CON -1 => NULL C= BD01 , GO TO FLEX5 
5C9: 92CC 0634 0004 04D3 

(3146) DFLEXt RR RCM = $201 -> 11 
5CA: F200 9A04 0000 0401 

(3147) ALU CON -1 => NULL C* BD01 , GO TO FLEX5 
5CB: 92CC 0634 0004 04D3 

002714 (3148) END 



PA6E 0095 



A2A 


01AD 


A 2016 










ACA 


01B« 


A 2029 










ADD 


01EF 


A 2150 










ADD3 


00B9 


A 1515 


2150 








ADJ8 


0444 


A 2298 


2322 








ADJ9 


0443 


A 2293 


2321 








ADJUST 


043A 


A 2293 


2383 


2390 






ALL 


01D6 


A 2100 










ALR 


01D9 


A 2107 










ALS 


01D7 


A 2101 










ANA 


01E9 


A 2142 










AOA 


0133 


A 1797 


2020 








ARL 


01C2 


A 2055 










ARR 


01C4 


A 2061 










ARS 


01C3 


A 2058 










AVECT 


0077 


A 0984 


136 2 


1384 


1416 


1992 


AVECT1 


0C77 


A 1319 


1345 


1364 


1393 


1506 


BOOT 


0091 


A 1012 


1435 








B00T1 


0094 


A 1439 


1451 








CAI 


01 FD 


A 2165 










CAL 


01B4 


A 2024 










CAR 


01B3 


A 2C23 










CAS 


01E0 


A 2131 










CAS4 


01E4 


A 2135 


2137 


2152 


3135 




CAS5 


01E5 


A 1369 


1710 


1852 


1877 


1967 2006 2013 2126 2137 






2138 


2141 


2186 


2187 


2188 2189 2190 2191 2430 






2433 










CAS6 


01 F1 


A 2134 


2152 








CAZ 


01AB 


A 2013 










CEA 


018B 


A 1969 










CEA3 


0128 


A 1784 


1969 








CHS 


01AC 


A 1999 










CHA 


01AF 


A 2019 










CP1 


0035 


A 1008 


104 5 


1114 


1368 


1845 


CP10 


0022 


A 1010 










CP11 


0023 


A 1011 










CP12 


0024 


A 1012 










CP13 


0025 


A 1018 
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CPU 


0026 


A 


1025 








CP15 


0027 


A 


1018 


1030 






CP16 


0028 


A 


1032 








CP17 


002A 


A 


1036 








CP18 


002B 


A 


1038 








CP19 


002C 


A 


1011 


104 






CP2 


0036 


A 


1T15 








CP3 


0037 


A 


1036 


1038 


1040 


1116 


CP4 


0038 


A 


1119 








CP5 


0039 


A 


1121 








CP6 


003A 


A 


1123 








CP7 


003B 


A 


1126 








CP8 


0020 


A 


0995 


0997 


1006 


1126 


CP9 


0021 


A 


1008 


1010 






CPPAR 


0C6A 


A 


1323 








CPPAR3 


007E 


A 


1383 


T711 






CRA 


01CE 


A 


2003 


2 08 4 


2590 




CRB 


01 9 F 


A 


1998 


2009 






CREP 


013C 


A 


1808 








CRL 


C19E 


A 


1997 


2249 


2252 


2268 


CS1 


05C3 


A 


5108 


3133 






CS3 


05C5 


A 


3116 


3137 






CS4 


05 BE 


A 


3123 


3137 






CSA 


01AC 


A 


20T4 








DBL 


0188 


A 


1959 








DDV1Q 


05AB 


A 


2963 


3C75 






DDV11 


0582 


A 


2957 


2967 


3078 


3083 


0DV12 


058B 


A 


2982 


2983 


2989 


3139 


DDV13 


05B1 


A 


2976 


2980 


2984 


3088 


DDV14 


05C6 


A 


2978 


3139 






DDV15 


0584 


A 


2976 


3003 






DDV20 


059B 


A 


3023 


3030 






DDV21 


0596 


A 


3014 


3020 






D0V23 


0593 


A 


3014 


3030 






DDV24 


0598 


A 


3016 


3017 


3024 




00V30 


0572 


A 


2931 


3140 






DDV4 


05C7 


A 


2927 


3140 






DDV5 


05A5 


A 


2939 


3064 







2581 
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DDV6 


0577 


A 


2945 


3064 


DDV7 


057D 


A 


2947 


2957 


D0V8 


05A7 


A 


2954 


3066 


DDV9 


0591 


A 


3003 


3093 


DFAD 


01F8 


A 


2160 




DFAD1 


050D 


A 


2160 


2670 


DFAD4 


050F 


A 


2670 


2673 


DFAD6 


0511 


A 


2673 


2676 


DFCM 


0434 


A 


2276 


3059 


DFCS 


01FC 


A 


2164 




0FCS1 


05B4 


A 


2164 


3099 


DFDV 


01FB 


A 


2163 




DFDV1 


0570 


A 


2163 


2927 


DFIX 


0524 


A 


2675 


2688 


DFIX1 


052F 


A 


2728 


2759 


DF1X2 


0532 


A 


2732 


2771 


F I X 3 


0527 


A 


2732 


2761 


DFIX4 


0537 


A 


2737 


2774 


DFLD 


01F6 


A 


2158 




DFL01 


0500 


A 


2158 


2653 


OFLEX 


05C8 


A 


2276 


2822 


0FLEX1 


05CA 


A 


2931 


3146 


DFM1 


055C 


A 


2849 


2884 


DFM2 


054F 


A 


2850 


2884 


DFM3 


055B 


A 


2868 


2880 


DFM4 


055E 


A 


2875 


2889 


DFM5 


0559 


A 


2874 


2880 


DFM6 


0565 


A 


2900 


2921 


DFK7 


055F 


A 


2892 


2903 


DFW8 


056F 


A 


2892 


2921 


DFM9 


056D 


A 


2909 


2915 


DFMP 


01FA 


A 


2162 




DFtfPl 


054B 


A 


2162 


2842 


DFMP4 


054D 


A 


2842 


2847 


DFSB 


01F9 


A 


2161 




DFSB1 


0516 


A 


2161 


2683 


DFSBA 


0518 


A 


2683 


2686 


DFSB6 


051A 


A 


2686 


2689 



3069 



3071 



2728 



2783 2785 



2829 2850 2885 2945 3065 3082 3144 



PA6E 0C98 



DFST 


01F7 


A 


2159 






DFST1 


0507 


A 


2159 


2663 




DGET 


051 F 


A 


2671 


2684 


2705 


DIN 


004F 


A 


1215 


122 


1230 


D I N 1 , 


0053 


A 


1230 


1243 


1404 


DIV 


0144 


A 


1825 






DIV17 


009E 


A 


1457 


1478 




DIV27 


009C 


A 


1453 


1476 




DIV4 


00A8 


A 


1478 


182 7 




DIVER 


0146 


A 


1460 


148 2 


1829 


DMA 


004B 


A 


1132 


1206 




DMA1 


0047 


A 


1183 


1221 


1237 


DMC 


0048 


A 


1189 


1206 




DMC1 


0C5C 


A 


1189 


1267 




DMC2 


0089 


A 


1400 


1404 




DMC3 


0086 


A 


1274 


1398 




DMT 


003E 


A 


1147 


1190 




DHX1 


0070 


A 


1339 






DMX2 


003C 


A 


1130 


134C 




DNRM1 


0540 


A 


2804 


2813 




DNRM2 


0545 


A 


2806 


2823 




DNRML 


053A 


A 


2279 


2282 


2681 


DOUT 


0054 


A 


1234 


1246 




DOUT1 


. 0058 


A 


1212 


1227 


1246 


DRX 


01AA 


A 


2011 






E16S 


0189 


A 


1961 






E32R 


0189 


A 


1963 






E32S 


0189 


A 


1962 






E64R 


0189 


A 


1964 






EAA 


0128 


A 


1785 






EMCM 


018D 


A 


1971 






ENE 


0190 


A 


1975 






ENTR 


0100 


A 


1721 






EPMJ 


01 2C 


A 


1774 






EPMJ6 


C116 


A 


1755 






EPMX 


0120 


A 


1771 






ERA 


01ED 


A 


2148 






ERM 


0117 


A 


1756 







2843 2928 



2694 2739 2802 2916 3058 
1402 
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ERMJ 


0110 


A 


1745 


1776 
















ERMX 


0110 


A 


1743 


















ESIM 


0196 


A 


1988 


















EVIM 


0196 


A 


1989 


















EVMJ 


0110 


A 


1744 


















EVMX 


0110 


A 


1742 


















EVMX1 


01F2 


A 


1752 


2153 
















F1 


0000 


A 


0862 


1569 


1717 


1890 


1895 


1957 


2138 


2257 


2352 








2422 


2426 


2431 


2589 


2612 


2662 


2812 


3118 


3124 


F10 


0005 


A 


0891 


















F11 


0006 


A 


0897 


















Fl? 


0007 


A 


0903 


















F13 


0008 


A 


0891 


0906 
















F14 


0009 


A 


0912 


















F16 


000* 


A 


0918 


















F16A 


0006 


A 


0924 


















F16B 


OOOC 


A 


0930 


















F17 


OOOD 


A 


0906 


0935 
















F18 


OOOE 


A 


0941 


















F18A 


OOOF 


A 


0942 


















F19 


0014 


A 


0935 


0963 
















F20 


0015 


A 


0969 


















F3 


0001 


A 


0868 


1006 
















F4 


0002 


A 


0874 


















F5 


0003 


A 


0880 


















F6 


0010 


A 


0880 


0903 


0930 


0947 


0969 


1970 








F6A 


001 1 


A 


0950 


0956 


0957 














F7 


0012 


A 


0956 


















F7A 


0013 


A 


0957 


















F9 


0004 


A 


0868 


0686 


1779 














FAD 


0165 


A 


1907 


















FA01 


040B 


A 


1907 


2201 
















FAD4 


045A 


A 


2201 


2382 
















FAD6 


045C 


A 


2382 


2384 
















FCM 


041C 


A 


2210 


2406 


2572 














FCS 


016A 


A 


1917 


















FCS1 


046B 


A 


1919 


2411 
















FCS2 


0477 


A 


2411 


2420 


2421 


2423 


2428 


2431 


3100 


3114 


3123 
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3126 


3130 


3131 


FCS3 


G4C8 


A 


2415 


2611 




FCSA 


0470 


A 


2421 






FCS5 


0472 


A 


2423 


2613 




FCS7 


0479 


A 


2418 


2433 


3112 


FOV 


01 68 


A 


1913 






F0V1 


042E 


A 


1913 


2259 




FDV10 


04A2 


A 


2539 


2559 




FDV11 


04AC 


A 


2563 






F0V13 


046A 


A 


2406 


2516 




FDV4 


048D 


A 


2259 


2497 




FDV5 


0498 


A 


2512 


2520 




FDV6 


04AA 


A 


2521 


2 52 5 


2527 


FDV7 


04A5 


A 


2539 


2549 




FDV8 


04A7 


A 


2543 


2545 


2553 


F6EN 


010D 


A 


1737 






FGEN1 


0406 


A 


1737 


2192 




F6EN2 


0400 


A 


2185 


2194 


2209 


FHALT 


003C 


A 


0862 


1069 




FHALT2 


0074 


A 


1069 


1349 




FHALT3 


002D 


A 


1045 


1349 




FLD 


0163 


A 


1903 






FLD1 


0456 


A 


1905 


2376 




FLEX 


04CE 


A 


2210 


2369 


2446 


FLEX1 


04CF 


A 


2401 


2636 




FLEX2 


0401 


A 


2499 


2638 




FLEX4 


04D2 


A 


2633 


2635 


2637 


FLEX5 


04D3 


A 


2640 


3145 


3147 


FLEX 8 


04CD 


A 


2264 


2634 




FLEX9 


04CB 


A 


2253 


2632 




FLOT 


0420 


A 


2242 






FLGT1 


0416 


A 


2219 


2245 




FLX 


0129 


A 


1786 






FLX1 


0103 


A 


1724 


178 6 




FLX2 


012A 


A 


1724 


1788 




FMP 


0167 


A 


1911 






FMP1 


0417 


A 


1911 


2221 




FMP4 


047A 


A 


2221 


2443 





2531 2551 2559 



2241 2265 



2511 2530 2634 2635 



2639 
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FMP5 


0487 


A 


2466 


2473 


FWP6 


0486 


A 


2472 


2478 


FMP7 


0489 


A 


2469 


2478 


FOUT 


OOFC 


A 


1575 


1580 


F0UT1 


008E 


A 


1417 


1718 


FPA6E 


0060 


A 


1291 




FPA6E3 


008A 


A 


1291 


1408 


FRAC 


0430 


A 


2266 




FRAC1 


04B2 


A 


2272 


2576 


FRAC2 


04B9 


A 


2587 


2593 


FRAC3 


04BC 


A 


2577 


2593 


FREAD 


0066 


A 


1311 




FRN 


0414 


A 


2216 




FSB • 


0166 


A 


1909 




FSB1 


040D 


A 


1909 


2204 


FSB4 


045F 


A 


2204 


2389 


FSB6 


0461 


A 


2389 


2391 


FSEQ 


040C 


A 


2186 




FSGT 


0405 


A 


2191 




FSLE 


0404 


A 


2190 




FSMI 


0402 


A 


2188 




FSNE 


0401 


A 


2187 




FSPL 


0403 


A 


2189 




FST 


0169 


A 


1915 




FST1 


0464 


A 


1915 


2395 


6ENB 


0149 


A 


1843 




GENB1 


0183 


A 


1844 


1953 


HLT 


014B 


A 


1845 




IAB 


01A2 


A 


1453 


1497 


IAB2 


018F 


A 


1974 


2008 


ICA 


01B9 


A 


2030 




ICL 


01B5 


A 


2025 




ICR 


01B6 


A 


2026 




ILL 


0142 


A 


1821 




ILL3 


0CB5 


A 


1510 


1822 


IMA 


0178 


A 


1933 




INA 


0151 


A 


1865 


1883 


INA1 


0156 


A 


1871 


1879 



1591 1602 1655 1681 1696 1703 1717 



2001 



1881 
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INA2 


G18A 


A 1874 


1967 


2147 


INH 


C19C 


A 1976 






INK 


0T86 


A 1957 






INT 


G424 


A 2246 






INT1 . 


0428 


A 2253 






INT2 


04BF 


A 2256 


2600 


2610 


INT3 


0016 


A 0974 


0974 


1060 


INT4 


04C6 


A 2604 


2609 




INT5 


04C2 


A 2605 


2609 




INT6 


04C7 


A 2600 


261C 




INTEX 


002E 


A 1058 






IRS 


01E6 


A 2139 






IRX 


01A5 


A 2005 


2011 




ISI 


019A 


A 1993 






JDX 


0138 


A 1803 






JEQ 


012B 


A 1789 






JGE 


0136 


A 1800 






JGT 


0131 


A 1795 






JIX 


0139 


A 1805 






JLE 


012F 


A 1793 






JLT 


0134 


A 1798 






JMP 


01D0 


A 1790 


1792 


1794 


JNE 


012D 


A 1791 


1803 


1805 


JST 


014E 


A 1848 






JST1 


0150 


A 1852 


2647 




JSX 


013A 


A 1806 






LDA 


01DE 


A 1454 


1499 


1928 


LDA3 


0160 


A 1898 


2128 




LDX 


0147 


A 1830 






LEQ 


01CB 


A 2078 






LF 


01CE 


A 2083 






LGE 


01CC 


A 2080 






LGT 


01C0 


A 2082 






LLE 


01C9 


A 2C74 






LLL 


01D1 


A 2088 






LLR 


01C5 


A 2063 






LLS 


0103 


A 2092 






LLT 


01C8 


A 2072 







1796 1799 18C1 1807 1812 2086 



1974 2128 
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LMCM 


018D 


A 


1972 




LNE 


01CA 


A 


2076 




LOAD 


0419 


A 


2202 


2205 


LOGIC 


01BA 


A 


2035 




LPMJ 


0120 


A 


1773 




LPMX 


012C 


A 


1772 




LRL 


01BB 


A 


2037 




LRR 


01BF 


A 


2047 




LRS 


01BD 


A 


2042 




LT 


01CF 


A 


2C72 


2C7A 


MC1 


0031 


A 


1C76 




MC2 


0032 


A 


1079 




MC3 


0033 


A 


1082 




MCA 


0034 


A 


1085 


1324 


MEMP3 


008C 


A 


1330 


1414 


MEMPAR 


006C 


A 


1329 


1335 


MI1 


OOBF 


A 


0977 


1522 


MI2 


001C 


A 


0992 


1522 


MMOD 


006E 


A 


1334 




MOVE 


0449 


A 


2321 


2327 


MPY 


017C 


A 


1941 




NRM 


0118 


A 


1757 




NRM10 


0452 


A 


2351 


2362 


NRM17 


0451 


A 


2358 


2361 


NRM18 


044E 


A 


2355 


2361 


NRM7 


042D 


A 


2262 


2355 


NRML 


044B 


A 


2213 
2486 


2215 
2574 


NVECT 


001A 


A 


0978 


0982 


OSI 


019C 


A 


1995 




OTA 


0159 


A 


1883 




0TA1 


015F 


A 


1891 


1895 


OTK 


0192 


A 


1770 


1979 


PAGE 


007C 


A 


1292 


1376 


PAGE3 


0063 


A 


1300 


1378 


PAGE4 


0080 


A 


1300 


1386 


PAGE7 


0083 


A 


1386 


1391 


PFL 


0075 


A 


1350 





2222 2235 2260 



2076 2078 2080 2082 2085 



1709 



2333 2335 



2218 2219 2312 2351 2387 2394 2482 
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PID 


0174 


A 


1929 










PI* 


0172 


A 


1927 










PIO 


0159 


A 


1882 










RCB 


01A7 


A 


2007 










READ 


0064 


A 


1305 










REST 


0059 


A 


1183 


1191 


1251 






RMC 


0187 


A 


1843 


1958 








RTN 


0104 


A 


1726 










RXM 


0068 


A 


1318 


174 5 


1774 


1972 1976 1989 


1995 2165 


S2A 


01AE 


A 


2018 








V 


SCA 


0185 


A 


1956 










SCB 


01B2 


A 


2022 








-• 


SGL 


0188 


A 


1960 








XCA 01A2 A 1930 2002 


SKP 


010A 


A 


2110 








XCB 01A8 A U75 1493 


SKS 


0157 


A 


1868 


1880 






XEC 0122 A 1777 


SKS1 


01EC 


A 


1880 


2147 






IDNT CMACR03 


SOA 


01A4 


A 


2004 








CPU CMACR03 


SSM 


01B1 


A 


2021 








RR CMACR03 


SSP 


01A1 


A 


2000 








ALU CMACR03 


STA 


01EB 


A 


2146 








FRRD$ CMACR03 


STA3 


00B7 


A 


1512 


2146 






EMITS CMACROD 


STX 


01B7 


A 


2C28 








SETS CMACROD 


SUB 


014C 


A 


1846 


1924 






GENS CMACROD 


SUB3 


016C 


A 


1846 


1920 






LST1S CMACROD 


SVC 


0198 


A 


1991 








CNTS CMACR03 


TCA 


01BC 


A 


2C20 








RRSVS CMACROD 


TEXIT 


004A 


A 


1159 


1170 


1191 




AVFS CMACROD 


TIN 


0040 


A 


1156 


1162 






6BPS CMACROD 


TIN1 


0042 


A 


1148 


1162 






0R6 CMACR03 


TOUT 


0043 


A 


1167 


1175 






SYMS CMACR03 


T0UT1 


0046 


A 


1147 


1175 






SYM1S CMACR03 


UII 


0140 


A 


1816 








CLSTS CMACR03 


UII3 


00B3 


A 


15C3 


1511 


1735 


1817 


CLOCK CMACROD 


VIRY 


0126 


A 


1782 








RRSSV CMACROD 


VIRY1 


00C4 


A 


1082 


1323 


1419 


1562 1783 


RRCLK CMACROD 


V1RY12 


OOCF 


A 


1599 


1605 


1606 


1607 1618 1630 


VSALU CMACROD 


WRITE 


0062 


A 


1297 








ALUCLK CMACROD 


WR1TEP 


0072 


A 


1344 











2002 2008 
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